Poker hand analyser: Difference between revisions
Content added Content deleted
m (→Basic Version) |
m (→Basic Version) |
||
| Line 1,957: | Line 1,957: | ||
===Basic Version=== |
===Basic Version=== |
||
<lang Haskell> |
<lang Haskell> |
||
import Data.List |
import Data.List (group, nub, any, sort, sortBy) |
||
import Data.Maybe |
import Data.Maybe (catMaybes) |
||
data Suit = Club | Diamond | Spade | Heart deriving (Show, Eq) |
data Suit = Club | Diamond | Spade | Heart deriving (Show, Eq) |
||