McNuggets problem: Difference between revisions

Content added Content deleted

Inline

@@ Line 320: / Line 320: @@
 mcNuggets :: Set Int
 mcNuggets =
+  let qc = quot 100
-  fromList $
+  in fromList $
-  [0 .. quot 100 6] >>=
+     [0 .. qc 6] >>=
-  \x ->
-     [0 .. quot 100 9] >>=
+     \x ->
-     \y ->
+        [0 .. qc 9] >>=
-        [0 .. quot 100 20] >>=
+        \y ->
-        \z ->
+           [0 .. qc 20] >>=
-           let v = sum [6 * x, 9 * y, 20 * z]
+           \z ->
-           in [ v
+              let v = sum [6 * x, 9 * y, 20 * z]
-              | 101 > v ]
+              in [ v
+                 | 101 > v ]
 main :: IO ()