McNuggets problem: Difference between revisions
Add PL/I
m (added whitespace before the TOC.) |
Not a robot (talk | contribs) (Add PL/I) |
||
Line 1,202:
(nuggets1 100)
(nuggets2 100) ) )</lang>
=={{header|PL/I}}==
<lang pli>mcnugget: procedure options(main);
declare nugget(0:100) bit, (a, b, c) fixed;
do a=0 to 100; nugget(a) = '0'b; end;
do a=0 to 100 by 6;
do b=a to 100 by 9;
do c=b to 100 by 20;
nugget(c) = '1'b;
end;
end;
end;
do a=100 to 0 by -1;
if ^nugget(a) then do;
put skip list('Maximum non-McNuggets number:', a);
stop;
end;
end;
end mcnugget;</lang>
{{out}}
<pre>Maximum non-McNuggets number: 43</pre>
=={{header|PL/M}}==
|