Anonymous user
Dice game probabilities: Difference between revisions
m
→{{header|Haskell}}
Line 374:
=={{header|Haskell}}==
{{trans|Python}}
<lang haskell>import Control.Monad (
import Data.List (group, sort)
Line 387:
beatingProbability :: (Int, Int) -> (Int, Int) -> Double
beatingProbability
[realToFrac (c1 * c2) / totalOutcomes | (s1, c1) <- counts p1, (s2, c2) <- counts p2, s1 > s2]▼
▲ [realToFrac (c1 * c2) / totalOutcomes]
where
main :: IO ()
| |||