From: "ako..." <akonsu@...>
Date: 2005-12-16T11:51:24+09:00
Subject: Re: ruby beats them all

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