McNuggets problem: Difference between revisions
m
→{{header|Haskell}}
Line 875:
<lang haskell>import Data.Set (Set, fromList, member)
------------------------ MCNUGGETS -----------------------
gaps = dropWhile (`member` mcNuggets) [100,99 .. 1]▼
mcNuggets :: Set Int
mcNuggets =
let size = enumFromTo 0 . quot 100
in fromList $
size 6
>>= \x ->
size 9
>>= \y ->
size 20
>>= \z ->
]
--------------------------- TEST -------------------------
main :: IO ()
main =
where
go (x : _)
go []
Or equivalently, making use of the list comprehension notation:
|