fibonacci hoe-down

Submitted by metaperl on Sun, 12/18/2005 - 7:23pm.

[17:00:07] > let fibs = 1:1:(zipWith (+) fibs (tail fibs)) in take 10 $ fibs
[17:00:08] [1,1,2,3,5,8,13,21,34,55]
[17:00:14] <_metaperl> the free haskell books are not very good
[17:00:31] they're good enough for me, for now
[17:00:35] thankyou
[17:00:49] <_metaperl> jethr0: he did something like [ | x <- [1, 1] , y <- [2, ] ]
[17:00:52] <_metaperl> I cant remember it
[17:01:07] let fibs = [1,1] ++ [x + y | x <- fibs, y <- tail fibs] in take 10 $ fibs