Pig the dice game/Player: Difference between revisions

no edit summary
No edit summary
No edit summary
Line 1,462:
strat4 (pinfo:xs) | score pinfo > 75 = roll (pinfo:xs) >>= logic strat4 strat1
strat4 (pinfo:xs) = do
chance <- randomRIO (0, 43) :: IO Int
case chance of
0 -> hold (pinfo:xs) >>= logic strat4 strat1
Anonymous user