11 lines
171 B
Text
11 lines
171 B
Text
|
function fib,n
|
||
|
|
psum = (csum = 1uL)
|
||
|
|
if n lt 3 then return,csum
|
||
|
|
for i = 3,n do begin
|
||
|
|
nsum = psum + csum
|
||
|
|
psum = csum
|
||
|
|
csum = nsum
|
||
|
|
endfor
|
||
|
|
return,nsum
|
||
|
|
end
|