CS研究日記

CS研究日記

Egi言語で書いたポーカーの役のパターンマッチ。 (define poker_hands (lambda (Ks) (match Ks (of Mult...概要を表示 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) (+ n 1)) (= n+2 (n) (+ n 2)) (= n+3 (n) (+ n 3)) (= n+4 (n) (+ n 4)))) "Straight Flush") ((((_ n) (_ n) (_ n) (_ n) _) ()) "Four of Kind") ((((_ m) (_ m) (_ m) (_ n) (_ n)) ()) "Full