RosettaCodeData/Task/Fibonacci-sequence/Mathematica/fibonacci-sequence-3.math
2023-07-01 13:44:08 -04: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]