McNuggets problem: Difference between revisions

Added Arturo implementation
(Add Comal)
(Added Arturo implementation)
Line 321:
{{Out}}
<pre>43</pre>
 
=={{header|Arturo}}==
 
<lang rebol>nonMcNuggets: function [lim][
result: new 0..lim
 
loop range.step:6 1 lim 'x [
loop range.step:9 1 lim 'y [
loop range.step:20 1 lim 'z
-> 'result -- sum @[x y z]
]
]
 
return result
]
 
print max nonMcNuggets 100</lang>
 
{{out}}
 
<pre>46</pre>
 
=={{header|AWK}}==
1,532

edits