Subtractive generator: Difference between revisions
m
→{{header|Haskell}}
m (→{{header|Haskell}}: An applicative simplification of the shuffle function) |
|||
Line 900:
where
r = take 55 $ shuffle $ cycle $ take 55 s
shuffle x =
s = mmod $ seed : 1 : zipWith (-) s (tail s)
mmod = fmap (`mod` 10 ^ 9)
|