高階関数だらけのポーカー - Qiita極力高階関数を適用すべく、ポーカーを書いてみた。 ジョーカーを除く52枚のカードを利用、カード交換はなし、初回の手札について判定。 コード(新) @htsignさんから頂いたコメントを元に修正。 open System // Number that circulates from 1 to 13 // ex1) A - 1 => K type Suit = Heart | Clover | Spade | Diamond type CardNumber = Ace | Jack | Queen | King | Other of int with static member (-) (x : CardNumber, y : CardNumber) = let subValue = (int x) - (int y) CardNumber.Create <| if subValue < 1
