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
