Revision as of 01:53, 18 May 2021 (view source) Not a robot (talk \| contribs) (Add PL/M) ← Older edit		Revision as of 12:32, 15 July 2021 (view source) Shuisman (talk \| contribs) (→‎{{header\|Mathematica}}) Newer edit →
Line 1,000: </pre> =={{header\|Mathematica}}/{{header\|Wolfram Language}}== <lang mathematica>~~Complement~~FrobeniusNumber[~~Range[100]~~{6, 9, 20}]</lang> ~~Select[6 #[[1]] + 9 #[[2]] + 20 #[[3]] & /@~~ ~~Tuples[Range[0, 17], 3], # < 101 &]][[-1]]</lang>~~ {{out}} <pre>43</pre> 43 ~~</pre>~~ =={{header\|MiniZinc}}==

McNuggets problem (view source)