Ironsworn.hs 315 B

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