RPG attributes generator: Difference between revisions
m
→{{header|Haskell}}: Desugared `do` to >>=
m (→JS Functional) |
m (→{{header|Haskell}}: Desugared `do` to >>=) |
||
Line 253:
(replicateM 6 $
(sum . tail . sort) <$> replicateM 4 (randomRIO (1, 6 :: Int)))
discardUntil :: ([Int] -> Bool) -> IO [Int] -> IO [Int]
discardUntil p throw =
let go =
else go)
in go
-- TEST -----------------------------------------------------------
main :: IO ()
▲ mapM_ (print . (sum >>= (,))) xs</lang>
{{Out}}
<pre>Sample computation:
|