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

7
Task/McNuggets-problem/PicoLisp/mcnuggets-problem-1.l Normal file
View file

@ -0,0 +1,7 @@
(de nuggets1 (M)
(let Lst (range 0 M)
(for A (range 0 M 6)
(for B (range A M 9)
(for C (range B M 20)
(set (nth Lst (inc C))) ) ) )
(apply max Lst) ) )

11
Task/McNuggets-problem/PicoLisp/mcnuggets-problem-2.l Normal file
View file

@ -0,0 +1,11 @@
(de nugg (M)
(co 'nugget
(for A (range 0 M 6)
(for B (range A M 9)
(for C (range B M 20)
(yield (inc C)) ) ) ) ) )
(de nuggets2 (M)
(let Lst (range 0 M)
(while (nugg 100)
(set (nth Lst @)) )
(apply max Lst) ) )

6
Task/McNuggets-problem/PicoLisp/mcnuggets-problem-3.l Normal file
View file

@ -0,0 +1,6 @@
(test
T
(=
43
(nuggets1 100)
(nuggets2 100) ) )