16 lines
450 B
Text
16 lines
450 B
Text
numSequence := proc(initValues :: Array)
|
|
local n, i, values;
|
|
n := numelems(initValues);
|
|
values := copy(initValues);
|
|
for i from (n+1) to 15 do
|
|
values(i) := add(values[i-n..i-1]);
|
|
end do;
|
|
return values;
|
|
end proc:
|
|
|
|
initValues := Array([1]):
|
|
for i from 2 to 10 do
|
|
initValues(i) := add(initValues):
|
|
printf ("nacci(%d): %a\n", i, convert(numSequence(initValues), list));
|
|
end do:
|
|
printf ("lucas: %a\n", convert(numSequence(Array([2, 1])), list));
|