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

4 lines
135 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04: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]