PBTA20.hs 215 B

123456789
  1. module Rolling.PBTA20 (roll) where
  2. import Rolling.Common
  3. roll :: Int -> Prob Result
  4. roll m = normalize $ do
  5. a <- die 20
  6. let r = a + m
  7. return (if r < 10 then Failure else if r < 16 then Partial else Success)