rolling/src/Rolling/Common.hs

module Rolling.Common (Diagram (..), Prob, Result (..), normalize, die) where

import Rolling.Prob

data Diagram = Diagram
  { title :: String,
    filename :: String,
    rolls :: [(Int, Prob Result)]
  }

die :: Int -> Prob Int
die n = Prob [(d, P 1 n) | d <- [1 .. n]]

-- the success metric for vaguely PbtA-ish games
data Result
  = Success
  | Partial
  | Failure
  deriving (Eq, Show, Ord)