RosettaCodeData/Task/Fibonacci-sequence/Ursa/fibonacci-sequence.ursa

13 lines
246 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
def fibIter (int n)
2026-04-30 12:34:36 -04:00
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
2023-07-01 11:58:00 -04:00
end