Skip to content

Instantly share code, notes, and snippets.

@lalala

lalala/gist:1480997

Created December 15, 2011 12:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save lalala/1480997 to your computer and use it in GitHub Desktop.
Save lalala/1480997 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
nextp :: Integer -> Integer -> Integer -> Integer -> [Integer]
nextp r a b m =
r1 : (nextp r1 a b m)
where
r1 = mod (a*r+b) m
metapung :: (Integer -> Integer) -> Integer -> [Integer]
metapung f seed =
n1 : (metapung f n1)
where
n1 = (f seed)
rekursion r = ( 5 * r + 7) `mod` 9
@xenonn
Copy link

xenonn commented Dec 15, 2011

Nice can Edit!

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment