RosettaCodeData/Task/Fibonacci-sequence/Mathematica/fibonacci-sequence-5.math
2023-07-01 13:44:08 -04:00

2 lines
137 B
Text

fibi[{prvprv_Integer, prv_Integer}] := {prv, prvprv + prv}
fibList[n_Integer] := Map[Take[#, 1] &, NestList[fibi, {0, 1}, n]] // Flatten