RosettaCodeData/Task/McNuggets-problem/Factor/mcnuggets-problem.factor

3 lines
143 B
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 .