Submission #11202120

---

Source Code Expand

use v5.18; # strict say state
use warnings;
use List::Util 'min';

chomp (my ($r, $c) = split / /, <STDIN>);
chomp (my ($sy, $sx) = split / /, <STDIN>);
chomp (my ($gy, $gx) = split / /, <STDIN>);
my (@s, @que);
for my $i (0..$r-1) {
  chomp (my $in = <STDIN>);
  my @b = split //, $in;
  for my $j (0..$c-1) {
    if ($b[$j] eq '.') {
      $s[$i][$j] = -1;
    }
  }
}
push @que, $sy-1;
push @que, $sx-1;
$s[$sy-1][$sx-1] = 0;
my $m = sub {
  my ($i, $j) = @_;
  return 1 + min grep {$_>0} ($s[$i+1][$j], $s[$i-1][$j], $s[$i][$j+1], $s[$i][$j-1]);
};
while (@que) {
  my ($i, $j);
  $j = pop @que,
  $i = pop @que;
  my $cnt = $s[$i][$j];
  if ($s[$i+1][$j] == -1) {
    $s[$i+1][$j] = $m->($i+1, $j);
    push @que, $i+1;
    push @que, $j;
  }
  if ($s[$i-1][$j] == -1) {
    $s[$i-1][$j] = $m->($i-1, $j);
    push @que, $i-1;
    push @que, $j;
  }
  if ($s[$i][$j+1] == -1) {
    $s[$i][$j+1] = $m->($i, $j+1);
    push @que, $i;
    push @que, $j+1;
  }
  if ($s[$i][$j-1] == -1) {
    $s[$i][$j-1] = $m->($i, $j-1);
    push @que, $i;
    push @que, $j-1;
  }
}
say abs($s[$gy-1][$gx-1]);

Submission Info

Compile Error

./Main.pl syntax OK

Judge Result