5 use experimental 'multidimensional';
14 my ($sx, $sy, $cx, $cy) = /(-?\d+)/g;
15 my $r = abs($sx - $cx) + abs($sy - $cy);
16 my $dist = abs($sy - $row);
19 my $l = abs($dist-$r);
20 push @ints, [ $sx - ($r - $dist), $sx + ($r - $dist) ];
21 say "$ints[-1][0] $ints[-1][1]";
22 $corr{$cx} = 1 if $cy == $row;
26 @ints = sort { $a->[0] <=> $b->[0] } @ints;
27 my $prev = shift @ints;
28 my $sum = $prev->[1] - $prev->[0] + 1;
31 if ($int->[0] > $prev->[1]) {
32 $sum += $int->[1] - $int->[0] + 1;
34 } elsif ($int->[1] <= $prev->[1]) {
37 $sum += $int->[1] - $prev->[1];
42 say $sum - keys %corr;