On 2005.12.16 11:51, "ako..." <akonsu / gmail.com> wrote:
> this one is in haskell:
> 
> fibonacci n = round((phi ** (x + 1) - (1 - phi) ** (x + 1)) / (sqrt 5))
>   where phi = (1 + sqrt 5) / 2
>         x = (fromInteger n)::Float


fibs :: [Int]
fibs = 0 : 1 : [ a + b | (a, b) <- zip fibs (tail fibs)]


E