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

3 lines
137 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
fibi[{prvprv_Integer, prv_Integer}] := {prv, prvprv + prv}
fibList[n_Integer] := Map[Take[#, 1] &, NestList[fibi, {0, 1}, n]] // Flatten