RosettaCodeData/Task/Fibonacci-sequence/Ursa/fibonacci-sequence.ursa
2026-04-30 12:34:36 -04:00

12 lines
246 B
Text

def fibIter (int n)
if (< n 2)
return n
end if
decl int fib fibPrev num
set fib (set fibPrev 1)
for (set num 2) (< num n) (inc num)
set fib (+ fib fibPrev)
set fibPrev (- fib fibPrev)
end for
return fib
end