minhnhdo/natnum.hs

Created January 1, 2012 13:03

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/minhnhdo/1547281.js"></script>
Save minhnhdo/1547281 to your computer and use it in GitHub Desktop.

Download ZIP

recursive natural number generator in Haskell

Raw

	addStream :: (Num a) => [a] -> [a] -> [a]
	addStream (x:xs) (y:ys) = x + y : addStream xs ys

	natural :: [Integer]
	natural = 1 : addStream natural (repeat 1)

md2perpe commented Jan 1, 2012

addStream = zipWith (+)

Author

minhnhdo commented Jan 2, 2012

thanks

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