13 lines
346 B
Text
13 lines
346 B
Text
Func Leonardo(size, l0, l1, add) =
|
|
Array leo[1,size]; {set up as a row rather than column vector; looks nicer to print}
|
|
leo[1,1]:=l0; leo[1,2]:=l1; {fermat arrays are 1-indexed}
|
|
for i=3 to size do
|
|
leo[1,i]:=leo[1,i-2]+leo[1,i-1]+add;
|
|
od;
|
|
.;
|
|
|
|
Leonardo(25, 1, 1, 1);
|
|
[leo];
|
|
|
|
Leonardo(25, 0, 1, 0);
|
|
[leo];
|