Subtractive generator: Difference between revisions

Content added Content deleted

Inline

@@ Line 854: / Line 854: @@
 =={{header|Haskell}}==
-<lang haskell>subtractgen seed = drop 220 out where
+<lang haskell>subtractgen :: Int -> [Int]
+subtractgen seed = drop 220 out
-	out = mmod $ r ++ zipWith (-) out (drop 31 out) where
+  where
-		r = take 55 $ shuffle $ cycle $ take 55 s
-		shuffle x = head xx:shuffle xx where xx = drop 34 x
+    out = mmod $ r ++ zipWith (-) out (drop 31 out)
+      where
-		s = mmod $ seed:1:zipWith (-) s (tail s)
+        r = take 55 $ shuffle $ cycle $ take 55 s
-		mmod = map (`mod` 10^9)
+        shuffle x = head xx : shuffle xx
+          where
+            xx = drop 34 x
+        s = mmod $ seed : 1 : zipWith (-) s (tail s)
+        mmod = map (`mod` 10 ^ 9)
+main :: IO ()
 main = mapM_ print $ take 10 $ subtractgen 292929</lang>
 {{out}}