5 my ($x, $y, $dir) = (0, 0, 'E');
8 my ($cmd, $num) = /\A(.)(\d+)/;
9 print "cmd=$cmd, num=$num: ";
15 $dir =~ y/NESW/ESWN/ while $num -= 90;
16 } elsif ($cmd eq 'L') {
18 $dir =~ y/NESW/WNES/ while $num -= 90;
19 } elsif ($cmd eq 'N') {
21 } elsif ($cmd eq 'S') {
23 } elsif ($cmd eq 'E') {
25 } elsif ($cmd eq 'W') {
28 print " at ($x, $y, $dir)\n";
31 print abs($x) + abs($y), "\n";