| … | |
… | |
| 481 | if ($_[1] =~ /^([^:]+):(.*)$/) { |
481 | if ($_[1] =~ /^([^:]+):(.*)$/) { |
| 482 | my ($ul, $dr) = ($1, $2); |
482 | my ($ul, $dr) = ($1, $2); |
| 483 | my ($x1, $y1) = map $char2coord{$_}, split //, $ul; |
483 | my ($x1, $y1) = map $char2coord{$_}, split //, $ul; |
| 484 | my ($x2, $y2) = map $char2coord{$_}, split //, $dr; |
484 | my ($x2, $y2) = map $char2coord{$_}, split //, $dr; |
| 485 | my @stones; |
485 | my @stones; |
| 486 | for (my $d = $x1; $d < $x2; $d++) { |
486 | for (my $d = $x1; $d <= $x2; $d++) { |
| 487 | for (my $i = $y1; $i < $y2; $i++) { |
487 | for (my $i = $y1; $i <= $y2; $i++) { |
| 488 | push @stones, [$d, $i]; |
488 | push @stones, [$d, $i]; |
| 489 | } |
489 | } |
| 490 | } |
490 | } |
| 491 | return @stones; |
491 | return @stones; |
| 492 | } |
492 | } |
