5 my ($wx, $wy, $x, $y) = (10, 1);
8 my ($cmd, $num) = /\A(.)(\d+)/;
9 print "cmd=$cmd, num=$num: ";
13 } elsif ($cmd eq 'R') {
14 while (($num -= 90) >= 0) {
19 } elsif ($cmd eq 'L') {
20 while (($num -= 90) >= 0) {
25 } elsif ($cmd eq 'N') {
27 } elsif ($cmd eq 'S') {
29 } elsif ($cmd eq 'E') {
31 } elsif ($cmd eq 'W') {
34 print " at ($x, $y, $wx, $wy)\n";
37 print abs($x) + abs($y), "\n";