6 chomp (my @cont = sort { $a <=> $b } <>);
10 my ($rem, $rest, $used) = @_;
13 say join(',', @$used);
16 return if !@$rest || $rem < $rest->[0];
17 for my $i (0 .. $#$rest) {
20 my (@a) = splice @nr, 0, $i+1;
23 walk($rem - $n, \@nr, \@nu) if $rem >= $n;
27 walk(150, \@cont, []);