Haskell Lazy Infinite Fibonacci

fib = lazyFib 1 1
lazyFib x y = x:lazyFib y (x+y)
fibNth n = head$drop (n-1)$fib

–sampe runĀ 

take 10 fib
[1,1,2,3,5,8,13,21,34,55]

fibNth 100
354224848179261915075

Advertisements
This entry was posted in Uncategorized and tagged . Bookmark the permalink.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s