a slight modification of smls++'s program; finds all solutions

program.p6

my $sum = 283;
my @terms = 23, 33, 44, 62;
my $solution-found = False; 
 
my @factors = 0 xx +@terms;  # First set of factors is all zeroes
 
loop (my $i = 0; $i < +@factors;) {
    @factors[$i]++;

    given [+] @factors Z* @terms {
        when * > $sum { @factors[$i] = 0; $i++ }
        when * < $sum { $i = 0 }
        default {
            say "Found solution:\n  $sum = ",
                (@terms Z=> @factors).Bag.kv.map(* ~ "×" ~ *).join(" + ");
            $solution-found = True;
        }
    }
}
 
say "No solution found."
    unless $solution-found;