Egi言語で書いたポーカーの役のパターンマッチ。 (define poker_hands (lambda (Ks) (match Ks (of Multiset (** Mark Mod13)) ((((S 10) (S 11) (S 12) (S 13) (S 1)) ()) "Royal Straight Flush") ((((S n) (S n+1) (S n+2) (S n+3) (S n+4)) ((= n+1 (n) …