aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Leonardo-numbers/Maple/leonardo-numbers.maple Normal file
View file

@ -0,0 +1,13 @@
L := proc(n, L_0, L_1, add)
if n = 0 then
return L_0;
elif n = 1 then
return L_1;
else
return L(n - 1) + L(n - 2) + add;
end if;
end proc:
Leonardo := n -> (L(1, 1, 1),[seq(0..n - 1)])
Fibonacci := n -> (L(0, 1, 0), [seq(0..n - 1)])