McNuggets problem: Difference between revisions

Content added Content deleted
(→‎{{header|JavaScript}}: (bindList -> .flatMap))
(Add Factor example)
Line 396: Line 396:
printfn "%d" (Set.maxElement(Set.difference (set[1..100]) (fN 20 0|>Seq.collect(fun n->fN 9 n)|>Seq.collect(fun n->fN 6 n)|>Set.ofSeq)))
printfn "%d" (Set.maxElement(Set.difference (set[1..100]) (fN 20 0|>Seq.collect(fun n->fN 9 n)|>Seq.collect(fun n->fN 6 n)|>Set.ofSeq)))
</lang>
</lang>
{{out}}
<pre>
43
</pre>

=={{header|Factor}}==
<lang factor>USING: backtrack kernel math.ranges prettyprint sequences sets ;
101 <iota> [ 0 6 9 20 [ 100 swap <range> amb-lazy ] tri@ ] bag-of diff last .</lang>
{{out}}
{{out}}
<pre>
<pre>