RosettaCodeData/Task/Fibonacci-sequence/Mathematica/fibonacci-sequence-3.math
2015-02-20 00:35:01 -05:00

3 lines
135 B
Text

fibi[prvprv_Integer, prv_Integer, rm_Integer] :=
If[rm < 1, prvprv, fibi[prv, prvprv + prv, rm - 1]]
fib[n_Integer] := fibi[0, 1, n]