Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
should_be_300_for_perfect_game : IO ()
should_be_300_for_perfect_game =
assertEq 300 $ score $ MkBowlingGame (replicate 10 strike) [10, 10]
should_be_150_for_5_pins_only_game : IO ()
should_be_150_for_5_pins_only_game =
assertEq 150 $ score $ MkBowlingGame (replicate 10 (roll 5 5)) [5]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.