3 lines
136 B
Text
3 lines
136 B
Text
fib[n_Integer] := Block[{tmp, prvprv = 0, prv = 1},
|
|
For[i = 0, i < n, i++, tmp = prv; prv += prvprv; prvprv = tmp];
|
|
Return[prvprv]]
|