Subtractive generator: Difference between revisions
m
→{{header|Haskell}}: Applied hindent, added type signatures
m (→{{header|Haskell}}: Applied hindent, added type signatures) |
|||
Line 854:
=={{header|Haskell}}==
<lang haskell>subtractgen
subtractgen seed = drop 220 out
out = mmod $ r ++ zipWith (-) out (drop 31 out) where▼
where
r = take 55 $ shuffle $ cycle $ take 55 s▼
where
mmod = map (`mod` 10^9)▼
shuffle x = head xx : shuffle xx
where
xx = drop 34 x
main :: IO ()
main = mapM_ print $ take 10 $ subtractgen 292929</lang>
{{out}}
|