Alternatively, fibonacci n = (map fst $ iterate (\(a,b) -> (b,a+b)) (0,1)) !! n | Hacker News

Hacker Newsnew | past | comments | ask | show | jobs | submit

		wyager on May 8, 2014 \| parent \| context \| favorite \| on: Corecursion Alternatively, `fibonacci n = (map fst $ iterate (\(a,b) -> (b,a+b)) (0,1)) !! n`

Pitarou on May 9, 2014 [–]

I think gamegoblin's was prettier.

wyager on May 11, 2014 | [–]

Got a really short one!

     fib a b = a : fib b (a+b)
     fibn = (!!) (fib 0 1)

Guidelines | FAQ | Lists | API | Security | Legal | Apply to YC | Contact