Rosetta Code

McNuggets problem: Difference between revisions

Page Discussion

McNuggets problem (view source)

Revision as of 03:52, 15 December 2018

32 bytes added ,  5 years ago
m
→‎{{header|Haskell}}: slightly less duplication
m (→‎{{header|Haskell}}: slightly less duplication)
Line 320:
mcNuggets :: Set Int
mcNuggets =
[0let ..qc = quot 100 6] >>=▼
in fromList $
▲ [0 .. quot 100 6] >>=
[0 .. qc 6] >>=
\x ->
[0\x .. quot 100 9] >->=
\y - [0 .. qc 9] >>=
[0\y .. quot 100 20] >->=
\z - [0 .. qc 20] >>=
let\z v = sum [6 * x, 9 * y, 20 * z]->
in [ let v = sum [6 * x, 9 * y, 20 * z]
|in 101 >[ v ]
| 101 > v ]
 
main :: IO ()
Hout
9,659

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/286145"