This is an implementation of a simple DSL in purescript to parse and evaluate poker hands.
You will need to install purescript (^0.11.7), pulp and psc-package.
pulp --psc-package install
pulp build
pulp repl
> import Poker
> hand (card Ten Clubs) (card Ten Spades) (card Queen Spades) (card Two Spades) (card Ten Hearts)
[Q♤ ,10♧ ,10♤ ,10♡ ,2♤ ], Three of a Kind: 10, Q high
pulp test