6 lines
113 B
Text
6 lines
113 B
Text
on fib (n)
|
|
sqrt5 = sqrt(5.0)
|
|
p = (1+sqrt5)/2
|
|
q = 1 - p
|
|
return integer((power(p,n)-power(q,n))/sqrt5)
|
|
end
|