2016/01.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use v5.30;
   5
   6 my @dir = ([0, -1], [1, 0], [0, 1], [-1, 0]);
   7 my $d = 0;
   8
   9 my ($x, $y) = (0, 0);
  10
  11 $_ = <>;
  12 while (/([LR])(\d+)/g) {
  13         if ($1 eq 'L') {
  14                 $d = $#dir if --$d < 0;
  15         } else {
  16                 $d = 0 if ++$d > $#dir;
  17         }
  18         $x += $2 * $dir[$d]->[0];
  19         $y += $2 * $dir[$d]->[1];
  20 }
  21
  22 say abs($x)+abs($y);
  23