Anonymous user
Poker hand analyser: Difference between revisions
m
→{{header|Haskell}}
Line 2,003:
instance Read Card where
readsPrec d =
where
card (r, s) = Card <$> (readMaybe s :: Maybe Suit)
|