McNuggets problem: Difference between revisions
m
no edit summary
mNo edit summary |
|||
Line 688:
(set (nth Lst (inc C))) ) ) )
(apply max Lst) ) )</lang>
Generator from fiber:
<lang PicoLisp>(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) ) )</lang>
Test versions against each other:
<lang PicoLis>(test
T
(=
43
(nuggets1 100)
(nuggets2 100) ) )</lang>
=={{header|Python}}==
| |||