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

15 lines
247 B
Text

int
fibIter(int n) {
int fibPrev, fib, i;
if (n < 2) {
return 1;
}
fibPrev = 0;
fib = 1;
for (i = 1; i < n; i++) {
int oldFib = fib;
fib += fibPrev;
fibPrev = oldFib;
}
return fib;
}