Game.Poker.Cards

Documentation

data Suit

4 types of card

>>> Hearts                       -- Show
Hearts

>>> read "Hearts" :: Suit        -- Read
Hearts

>>> Hearts == Hearts             -- Eq
True

>>> Hearts == Spades             -- Eq
False

>>> Hearts < Diamonds            -- Ord
True

>>> succ Hearts                  -- Enum
Diamonds

Constructors

Hearts

Diamonds

Clubs

Spades

Instances

Enum Suit

Eq Suit

Ord Suit

Read Suit

Show Suit

data Card

One playing card

>>> Card 1 Hearts == Card 2 Hearts       -- Eq
False

>>> Card 1 Hearts < Card 2 Hearts        -- Ord
True

Instances

Eq Card

Ord Card

Show Card

Show typeclass of Card

>>> show $ Card 1 Hearts
"H1_"

>>> show $ Card 14 Diamonds
"DA_"

>>> show $ Card 11 Clubs
"CJ_"

>>> show $ Card 10 Spades
"S10"

allCards :: [Card]

All cards

>>> length allCards
52

>>> take 13 $ allCards
[H2_,H3_,H4_,H5_,H6_,H7_,H8_,H9_,H10,HJ_,HQ_,HK_,HA_]

>>> reverse $ take 13 $ reverse allCards
[S2_,S3_,S4_,S5_,S6_,S7_,S8_,S9_,S10,SJ_,SQ_,SK_,SA_]

cardSuit :: Card -> Suit

Get Suit from card

>>> cardSuit $ Card 10 Hearts
Hearts

cardNumber :: Card -> Int

Get Suit from card

>>> cardNumber $ Card 10 Hearts
10

cardStrength :: Card -> Int

Stregnth of card

>>> cardStrength . head $ allCards
2