In [3]:

    

%%perl

# perl version

use strict;

my $input="R3, L2, L2, R4, L1, R2, R3, R4, L2, R4, L2, L5, L1, R5, R2, R2, L1, R4, R1, L5, L3, R4, R3, R1, L1, L5, L4, L2, R5, L3, L4, R3, R1, L3, R1, L3, R3, L4, R2, R5, L190, R2, L3, R47, R4, L3, R78, L1, R3, R190, R4, L3, R4, R2, R5, R3, R4, R3, L1, L4, R3, L4, R1, L4, L5, R3, L3, L4, R1, R2, L4, L3, R3, R3, L2, L5, R1, L4, L1, R5, L5, R1, R5, L4, R2, L2, R1, L5, L4, R4, R4, R3, R2, R3, L1, R4, R5, L2, L5, L4, L1, R4, L4, R4, L4, R1, R5, L1, R1, L5, R5, R1, R1, L3, L1, R4, L1, L4, L4, L3, R1, R4, R1, R1, R2, L5, L2, R4, L1, R3, L5, L2, R5, L4, R5, L5, R3, R4, L3, L3, L2, R2, L5, L5, R3, R4, R3, R4, R3, R1";

my %sign=qw(NR 1 NL -1 SR -1 SL 1 ER -1 EL 1 WL -1 WR 1);
my %direction=qw(NR E NL W SR W SL E ER S EL N WR N WL S);

$input=~s/\s+//g;
my @pp=split(",", $input);
my $cdir="N"; # start direction
my $x=0; # current x-co-ordinate
my $y=0; # current y-co-ordinate
for(my $i=0;$i<scalar(@pp);$i++)
{
  my $val=$pp[$i];
  my $char=substr($val,0,1);
  my $block = substr($val,1);
  
  my $dir=$direction{"$cdir$char"};
  
  my $symbol;
  $symbol=$sign{"$cdir$char"}; 
 
  # change x co-ordinate 
  if("$cdir$char"=~/(NR|NL|SL|SR)/)
  { $x+=($block*$symbol); }

  # change y co-ordinate 
  else
  { $y+=($block*$symbol); }
 
  $cdir=$dir; # save the previous direction
}
my $total=abs($x)+abs($y);
print $total,"\n";


    

    




262

In [4]:

    

#python version

input_line="R3, L2, L2, R4, L1, R2, R3, R4, L2, R4, L2, L5, L1, R5, R2, R2, L1, R4, R1, L5, L3, R4, R3, R1, L1, L5, L4, L2, R5, L3, L4, R3, R1, L3, R1, L3, R3, L4, R2, R5, L190, R2, L3, R47, R4, L3, R78, L1, R3, R190, R4, L3, R4, R2, R5, R3, R4, R3, L1, L4, R3, L4, R1, L4, L5, R3, L3, L4, R1, R2, L4, L3, R3, R3, L2, L5, R1, L4, L1, R5, L5, R1, R5, L4, R2, L2, R1, L5, L4, R4, R4, R3, R2, R3, L1, R4, R5, L2, L5, L4, L1, R4, L4, R4, L4, R1, R5, L1, R1, L5, R5, R1, R1, L3, L1, R4, L1, L4, L4, L3, R1, R4, R1, R1, R2, L5, L2, R4, L1, R3, L5, L2, R5, L4, R5, L5, R3, R4, L3, L3, L2, R2, L5, L5, R3, R4, R3, R4, R3, R1"

pp = input_line.split(", ")

sign={'NR':1, 'NL':-1, 'SR':-1, 'SL':1, 'ER':-1, 'EL':1, 'WL':-1, 'WR':1}
direction={'NR':'E', 'NL':'W', 'SR':'W', 'SL':'E', 'ER':'S', 'EL':'N', 'WR':'N', 'WL':'S'}

cdir="N"; # start direction
x=0; # current x-co-ordinate
y=0; # current y-co-ordinate
for val in pp:

    char = val[0]
    block = int(val[1:])
  
    pdir = direction["%s%s" % (cdir,char) ]
    symbol=sign["%s%s" % (cdir,char) ]
 
    # change x co-ordinate 
    if "%s%s" % (cdir,char) in [ 'NR', 'NL', 'SL', 'SR']:
        x += block*symbol

    # change y co-ordinate 
    else:
        y += block*symbol
 
    cdir=pdir; # save the previous direction

total=abs(x)+abs(y)
print(total)


    

    




262

In [ ]: