McNuggets problem: Difference between revisions

→‎{{header|JavaScript}}: (bindList -> .flatMap)
m (→‎{{header|JavaScript}}: Updated one primitive (defining bindlist as Array.flatMap))
(→‎{{header|JavaScript}}: (bindList -> .flatMap))
Line 570:
// main :: IO ()
const main = () => {
 
const
size = n => enumFromTo(0)(
Line 576 ⟶ 575:
),
nuggets = new Set(
bindListsize(6).flatMap(
x => size(69),.flatMap(
x y => bindListsize(20).flatMap(
size(9),
y => bindList(
size(20),
z => {
const v = sum([6 * x, 9 * y, 20 * z]);
Line 602 ⟶ 598:
};
 
// GENERIC FUNCTIONS ----------------------------------
 
// GENERIC FUNCTIONS ----------------------------------
// bindList (>>=) :: [a] -> (a -> [b]) -> [b]
const bindList = (xs, mf) => xs.flatMap(mf);
 
// dropWhile :: (a -> Bool) -> [a] -> [a]
9,659

edits