14 lines
232 B
Text
14 lines
232 B
Text
sub fibonacci (n)
|
|
n1 = 0
|
|
n2 = 1
|
|
for k = 1 to abs(n)
|
|
sum = n1 + n2
|
|
n1 = n2
|
|
n2 = sum
|
|
next k
|
|
if n < 0 then
|
|
return n1 * ((-1) ^ ((-n) + 1))
|
|
else
|
|
return n1
|
|
end if
|
|
end sub
|