root/examples/matrix.pl

use v6-alpha;

print "5x5 matrix in one line: " unless @*ARGS;
my $matrix = @*ARGS[0] || =<>;
$matrix ||= "abcdefghijklmnopqrstuvwxy";

$matrix.chars == 25 or die "Matrix length MUST be 25 characters.\n";
my @matrix  = [ '_' xx 7 ];
push @matrix, [ '_', (split "", substr $matrix, 0, 5, ''), '_' ] while $matrix;
push @matrix, [ '_' xx 7 ];
my @adj;
for 1..5 -> $y {
    for 1..5 -> $x {
        for -1..1 -> $dx {
            for -1..1 -> $dy {
                $dy or $dx or next;
                @matrix[$y + $dy][$x + $dx] eq '_' and next;
                push @adj[$y][$x], { x => ($x + $dx), y => ($y + $dy) };
            }
        }
    }
}


sub build_re ($y, $x, $todo is copy, %had? is copy) {
    %had{"$y/$x"} = 1;
    my $r = @matrix[$y][$x] or die "y=$y,x=$x is empty";
    --$todo or return $r;
    
    my @next; #= gather {
        for @adj[$y][$x] -> $adj {
            %had{"$adj<y>/$adj<x>"}++ and next;
            #take build_re $adj<y>, $adj<x>, $todo, %had;
            push @next, build_re $adj<y>, $adj<x>, $todo, %had;
        }
    #} or return $r;
    @next or return $r;

    return $todo == 1 
        ?? "$r\<[{ @next.join('') }]>?"
        !! "$r\[{ @next.join('|') }]{ $todo < 4 ?? '?' !! '' }";
}
my @re;
#say build_re 1, 1, 5;
#say "done";
#exit;

#my $re = #rule { 
#    ^ [ <$(
            for 1..5 -> $y {
                for 1..5 -> $x {
       push @re, build_re $y, $x, 6;
                }
            }
#        }
#    )> ] $ 
#};

my $re = join('|', @re);

=foo

my %scores = (
  a => 1, b => 3, c => 3, d => 2, e => 1, f => 4, g => 2, h => 4, i => 1, 
  j => 8, k => 5, l => 1, m => 3, n => 1, o => 1, p => 3, q =>10, r => 1, 
  s => 1, t => 1, u => 1, v => 4, w => 4, x => 8, y => 4, z =>10
);
%scores.values >>*= 10;

gather {
    for slurp '/usr/share/dict/words' :chomp orelse die {
        next if /<-[a-z]>/;
        /$re/ and take { word => $_, score => %scores{ .letters }.sum };
    }
}
==> sort [ { -.<score> }, { .<word>.length }, { .<word> } ];
==> my @words;

sayf 'MATRIX IS WORTH %d POINTS' <== sum @words>>[0];
sayf '%3d %s' <== $_[1], $_[0] for @words;