Poker hand analyser: Difference between revisions

m
Line 1,984:
isSucc [] = True
isSucc [x] = True
isSucc (x : y : zs) |= (x /= maxBound && y == succ x) =&& isSucc $ (y : zs)
isSucc _ = False
 
parseCard :: String -> Maybe Card
Anonymous user