6 lines
118 B
Haskell
6 lines
118 B
Haskell
import Data.CReal
|
|
|
|
phi = (1 + sqrt 5) / 2
|
|
|
|
fib :: (Integral b) => b -> CReal 0
|
|
fib n = (phi^^n - (-phi)^^(-n))/sqrt 5
|