8 my @path = split /[,\s]/, <>;
18 if ($x >= 0 && $y >= 0 || $x <= 0 && $y <= 0) {
20 } elsif (abs($x) >= abs($y)) {
32 } elsif ($dir eq 'n') {
34 } elsif ($dir eq 'ne') {
36 } elsif ($dir eq 'nw') {
39 } elsif ($dir eq 'se') {
42 } elsif ($dir eq 'sw') {
46 $max = $d if !$max || $max < $d;