12345678910111213141516171819 |
- 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)
|