RosettaCodeData/Task/Fibonacci-sequence/Mathematica/fibonacci-sequence-3.math

4 lines
135 B
Text
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
fibi[prvprv_Integer, prv_Integer, rm_Integer] :=
If[rm < 1, prvprv, fibi[prv, prvprv + prv, rm - 1]]
fib[n_Integer] := fibi[0, 1, n]