5 lines
79 B
Text
5 lines
79 B
Text
|
function fib,n
|
||
|
|
q=1/( p=(1+sqrt(5))/2 )
|
||
|
|
return,round((p^n+q^n)/sqrt(5))
|
||
|
|
end
|