RosettaCodeData/Task/Fibonacci-sequence/MAXScript/fibonacci-sequence-1.maxscript
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

19 lines
254 B
Text

fn fibIter n =
(
if n < 2 then
(
n
)
else
(
fib = 1
fibPrev = 1
for num in 3 to n do
(
temp = fib
fib += fibPrev
fibPrev = temp
)
fib
)
)