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

Methods

succ :: Suit -> Suit

pred :: Suit -> Suit

toEnum :: Int -> Suit

fromEnum :: Suit -> Int

enumFrom :: Suit -> [Suit]

enumFromThen :: Suit -> Suit -> [Suit]

enumFromTo :: Suit -> Suit -> [Suit]

enumFromThenTo :: Suit -> Suit -> Suit -> [Suit]

Eq Suit

Methods

(==) :: Suit -> Suit -> Bool

(/=) :: Suit -> Suit -> Bool

Ord Suit

Methods

compare :: Suit -> Suit -> Ordering

(<) :: Suit -> Suit -> Bool

(<=) :: Suit -> Suit -> Bool

(>) :: Suit -> Suit -> Bool

(>=) :: Suit -> Suit -> Bool

max :: Suit -> Suit -> Suit

min :: Suit -> Suit -> Suit

Read Suit

Methods

readsPrec :: Int -> ReadS Suit

readList :: ReadS [Suit]

readPrec :: ReadPrec Suit

readListPrec :: ReadPrec [Suit]

Show Suit

Methods

showsPrec :: Int -> Suit -> ShowS

show :: Suit -> String

showList :: [Suit] -> ShowS

data Card

One playing card

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

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

Instances

Eq Card

Methods

(==) :: Card -> Card -> Bool

(/=) :: Card -> Card -> Bool

Ord Card

Methods

compare :: Card -> Card -> Ordering

(<) :: Card -> Card -> Bool

(<=) :: Card -> Card -> Bool

(>) :: Card -> Card -> Bool

(>=) :: Card -> Card -> Bool

max :: Card -> Card -> Card

min :: Card -> Card -> 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"

Methods

showsPrec :: Int -> Card -> ShowS

show :: Card -> String

showList :: [Card] -> ShowS

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