8 my @path = split /[,\s]/, <>;
17 } elsif ($dir eq 'n') {
19 } elsif ($dir eq 'ne') {
21 } elsif ($dir eq 'nw') {
24 } elsif ($dir eq 'se') {
27 } elsif ($dir eq 'sw') {
33 if ($x >= 0 && $y >= 0 || $x <= 0 && $y <= 0) {
35 } elsif (abs($x) >= abs($y)) {