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

3 lines
137 B
Text
Raw Permalink Normal View History

2015-02-20 00:35:01 -05:00
fibi[{prvprv_Integer, prv_Integer}] := {prv, prvprv + prv}
fibList[n_Integer] := Map[Take[#, 1] &, NestList[fibi, {0, 1}, n]] // Flatten