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

3 lines
143 B
Factor
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
USING: backtrack kernel math.ranges prettyprint sequences sets ;
101 <iota> [ 0 6 9 20 [ 100 swap <range> amb-lazy ] tri@ ] bag-of diff last .