McNuggets problem: Difference between revisions

add PicoLisp
(Less sweet suggestion)
(add PicoLisp)
Line 679:
Maximum non-Mcnugget number using {3,6,15} is: No maximum
</pre>
 
=={{header|PicoLisp}}==
<lang PicoLisp>
(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) ) )</lang>
 
=={{header|Python}}==
298

edits