McNuggets problem: Difference between revisions
Add MAD
Not a robot (talk | contribs) (Add PL/I) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 1,000:
43
</pre>
=={{header|MAD}}==
<lang mad> NORMAL MODE IS INTEGER
BOOLEAN NUGGET
DIMENSION NUGGET(101)
THROUGH CLEAR, FOR I=0, 1, I.G.100
CLEAR NUGGET(I) = 0B
THROUGH MARK, FOR A=0, 6, A.G.100
THROUGH MARK, FOR B=A, 9, B.G.100
THROUGH MARK, FOR C=B, 20, C.G.100
MARK NUGGET(C) = 1B
SEARCH THROUGH SEARCH, FOR I=100, -1, .NOT.NUGGET(I)
PRINT FORMAT F, I
VECTOR VALUES F = $29HMAXIMUM NON-MCNUGGET NUMBER: ,I2*$
END OF PROGRAM </lang>
{{out}}
<pre>MAXIMUM NON-MCNUGGET NUMBER: 43</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
| |||