RosettaCodeData/Task/Leonardo-numbers/Mathematica/leonardo-numbers.math

7 lines
153 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
L[0,L0_:1,___]:=L0
L[1,L0_:1,L1_:1,___]:=L1
L[n_,L0_:1,L1_:1,add_:1]:=L[n-1,L0,L1,add]+L[n-2,L0,L1,add]+add
L/@(Range[25]-1)
L[#,0,1,0]&/@(Range[25]-1)