all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Subtractive-generator/Haskell/subtractive-generator.hs
+++ b/Task/Subtractive-generator/Haskell/subtractive-generator.hs
@ -0,0 +1,8 @@
+subtractgen seed = drop 220 out where
+	out = mmod $ r ++ zipWith (-) out (drop 31 out) where
+		r = take 55 $ shuffle $ cycle $ take 55 s
+		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 = mapM_ print $ take 10 $ subtractgen 292929