RosettaCodeData/Task/Fibonacci-sequence/Ursa/fibonacci-sequence.ursa
2016-12-05 23:44:36 +01:00

12 lines
220 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