PBTA.hs 261 B

123456789101112131415
  1. module Rolling.PBTA (roll) where
  2. import Rolling.Common
  3. judge :: Int -> Result
  4. judge n
  5. | n <= 6 = Failure
  6. | n <= 9 = Partial
  7. | otherwise = Success
  8. roll :: Int -> Prob Result
  9. roll m = normalize $ do
  10. a <- die 6
  11. b <- die 6
  12. return (judge (a + b + m))