RosettaCodeData/Task/Fibonacci-sequence/Mathematica/fibonacci-sequence-5.math
2015-02-20 00:35:01 -05: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