Pig

Pig simulates a dice game.

Documentation

roll :: IO Int

roll simulates a six-sided die.

data Move

Move models valid game actions.

Constructors

Roll

Hold

type Strategy = [Player] -> [Int] -> Move

Strategy models player tactics.

data Player

Player models information available to combatants.

Constructors

Player

Fields

• name :: String
• strategy :: Strategy
• score :: Int

sayN :: Int -> Int -> String -> String -> IO ()

sayN provides a debugging hook during development.

play :: [Player] -> Int -> [Int] -> IO Player

play executes a game of Pig and returns the winner.

alwaysHold :: Strategy

alwaysHold models a simple player who always holds.

alwaysRoll :: Strategy

alwaysRoll models a simple player who always rolls.

hundredOrBust :: Strategy

hundredOrBust models a player who strives for 100 points.

rollOnce :: Strategy

rollOnce models a player who rolls only once.

roll5 :: Strategy

roll5 models a player who rolls up to five times.

roll6 :: Strategy

roll6 models a player who rolls up to six times.

rollK :: Strategy

rollK rolls to keep up with the current top player.

rollBadK :: Strategy

rollBadK is a poor player

defaultPlayer :: Player

defaultPlayer constructs a new player.

ah :: Player

ah always holds.

ar :: Player

ar always rolls.

hob :: Player

hob busts at 100.

ro :: Player

ro rolls once.

r5 :: Player

r5 rolls five times.

r6 :: Player

r6 rolls six times.

rk :: Player

rk rolls to keep up with the top player.

rb :: Player

rb is a bad player.

test :: [Player] -> IO Player

test executes multiple games.

track :: [Player] -> Map String Int -> Map String Int

track records player wins across games.

stats :: [Player] -> [(String, Int)]

stats sorts game scores.

addLosers :: [Player] -> [(String, Int)] -> [(String, Int)]

addLosers identifies consistently low-scoring strategies.