euler-28.pl6

use v6.e.PREVIEW;

my $size = 1001;
my @mat[$size; $size];

init-array(0, $size - 1, $size * $size);
say sum-diagonals;
#say (0..$size - 1).map(-> $idx { @mat[$idx; $idx] + @mat[$idx; $size - 1 - $idx]}).sum - 1;

sub init-array($r, $c, $val) {
  @mat[$r; $c] = $val;
  if $c - 1 >= 0 && @mat[$r; $c - 1] !~~ Int && !($r - 1 >= 0 && @mat[$r - 1; $c] !~~ Int) { # left
    init-array($r, $c - 1, $val - 1);
  }
  elsif $r + 1 < $size && @mat[$r + 1; $c] !~~ Int { # down
    init-array($r + 1, $c, $val - 1);
  }
  elsif $c + 1 < $size && @mat[$r; $c + 1] !~~ Int { # right
    init-array($r, $c + 1, $val - 1);
  }
  elsif $r - 1 >= 0 && @mat[$r - 1; $c] !~~ Int { # up
    init-array($r - 1, $c, $val - 1);
  }
}

sub sum-diagonals {
  my $sum = 0;
  for (0..$size - 1) -> $idx {
    $sum += @mat[$idx; $idx] + @mat[$idx; $size - 1 - $idx];
  }
  $sum - 1; # don't count the '1' in the middle twice
}