10 lines
171 B
Text
10 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
|