17.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4
   5 my @m = map { chomp; [ split // ]; } <>;
   6 my $maxy = $#m;
   7 my $maxx = $#{$m[0]};
   8 say "$maxx x $maxy";
   9
  10 my $sum;
  11 for my $y (0 .. $maxy) {
  12         for my $x (0 .. $maxx) {
  13                 my $val = $m[$y][$x];
  14                 next if $y > 0     && $m[$y-1][$x] <= $val;
  15                 next if $y < $maxy && $m[$y+1][$x] <= $val;
  16                 next if $x > 0     && $m[$y][$x-1] <= $val;
  17                 next if $x < $maxx && $m[$y][$x+1] <= $val;
  18                 say "found at $x $y";
  19                 $sum += $val + 1;
  20         }
  21 }
  22
  23 say $sum;
  24