Perl 6 version of sherriff's faster send-more-money script

send-more-money-hashes.p6

# ported from https://gist.github.com/sheriff/c63fb15a4b1502219097

my %digits = 0..9 X=> 1;
 
sub choose(%set, &fn) {
    &fn($_) for grep { %set{$_} }, keys %set;
}
 
sub guard { &^fn() if $^condition }
 
choose { %digits, map { $_ => 0 }, 0 }, -> $s {
choose { %digits, map { $_ => 0 }, $s }, -> $e {
choose { %digits, map { $_ => 0 }, $s, $e }, -> $n {
choose { %digits, map { $_ => 0 }, $s, $e, $n }, -> $d {
choose { %digits, map { $_ => 0 }, 0, $s, $e, $n, $d }, -> $m {
choose { %digits, map { $_ => 0 }, $s, $e, $n, $d, $m }, -> $o {
choose { %digits, map { $_ => 0 }, $s, $e, $n, $d, $m, $o }, -> $r {
choose { %digits, map { $_ => 0 }, $s, $e, $n, $d, $m, $o, $r }, -> $y {
    my $send = $s ~ $e ~ $n ~ $d;
    my $more = $m ~ $o ~ $r ~ $e;
    my $money = $m ~ $o ~ $n ~ $e ~ $y;
    guard $send + $more == $money, -> {
        say "$send + $more = $money";
    }
}}}}}}}}