On 11/8/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > Would somebody try to solve it, before I unveil the solution? It isn't > difficult.
*** SPOILER WARNING *** Here's my attempt, which I wrote without peeking: let fibs' = 1 : 2 : zipWith (+) fibs' (tail fibs') rabbits = 1 : 0 : (fibs' >>= flip take rabbits) It can be golfed down to a single line without difficulty. Is there a nicer solution? Stuart _______________________________________________ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe