module Rolling.Ironsworn (roll) where

import Rolling.Common

judge :: Int -> Int -> Int -> Result
judge r a b
  | r < a && r < b = Failure
  | r < a || r < b = Partial
  | otherwise = Success

roll :: Int -> Prob Result
roll m = normalize $ do
  r <- die 6
  a <- die 10
  b <- die 10
  return (judge (r + m) a b)