15 lines
190 B
Text
15 lines
190 B
Text
function fibonacci (n)
|
|
if n < 2
|
|
set result = n
|
|
else
|
|
set f0 = 0
|
|
set f1 = 1
|
|
set k = 2
|
|
while k <= n
|
|
set result = f0 + f1
|
|
set f0 = f1
|
|
set f1 = result
|
|
set k = k + 1
|
|
end while
|
|
end if
|
|
end function
|