McNuggets problem: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add PL/M) |
|||
| Line 1,000: | Line 1,000: | ||
</pre> |
</pre> |
||
=={{header|Mathematica}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
<lang mathematica> |
<lang mathematica>FrobeniusNumber[{6, 9, 20}]</lang> |
||
Select[6 #[[1]] + 9 #[[2]] + 20 #[[3]] & /@ |
|||
Tuples[Range[0, 17], 3], # < 101 &]][[-1]]</lang> |
|||
{{out}} |
{{out}} |
||
<pre> |
<pre>43</pre> |
||
43 |
|||
</pre> |
|||
=={{header|MiniZinc}}== |
=={{header|MiniZinc}}== |
||