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

16 lines
248 B
Text

% iterative
function fibo = iterfibo(n)
if ( n < 2 )
fibo = n;
else
f = zeros(2,1);
f(1) = 0;
f(2) = 1;
for i = 2 : n
t = f(2);
f(2) = f(1) + f(2);
f(1) = t;
endfor
fibo = f(2);
endif
endfunction