8 my ($x1, $y1, $x2, $y2) = /(\d+),(\d+) -> (\d+),(\d+)/;
9 next if $x1 != $x2 && $y1 != $y2;
12 ($x1, $x2) = ($x2, $x1);
14 for my $x ($x1 .. $x2) {
15 $count++ if ++$p->{$x}->{$y1} == 2;
19 ($y1, $y2) = ($y2, $y1);
21 for my $y ($y1 .. $y2) {
22 $count++ if ++$p->{$x1}->{$y} == 2;