| http://www.w3.org/ns/prov#value | - .] | StraightFlush HighCard | RoyalFlush deriving (Eq, Ord)... and the cards are ranked in descending order, seeing if a hand is a straight is simply a check to see if all cards are a run:run :: MonadPlus m ⇒ [Card] → m HighCardrun (Card rank _:cards) = High rank |- descending (value rank) (map value cards) where descending
|
