McNuggets problem: Difference between revisions

m
m (→‎{{header|Haskell}}: slightly less duplication)
Line 320:
mcNuggets :: Set Int
mcNuggets =
let qcsize = enumFromTo 0 . quot 100
in fromList $
[0 .. qcsize 6] >>=
\x ->
[0 .. qcsize 9] >>=
\y ->
[0 .. qcsize 20] >>=
\z ->
let v = sum [6 * x, 9 * y, 20 * z]
Line 337:
case uncons gaps of
Just (x, _) -> show x
Nothing -> "No unreachable quantities found ..."</langpre>
<pre>43</pre>
 
=={{header|JavaScript}}==
9,659

edits