51 lines
839 B
Perl
51 lines
839 B
Perl
use 5.20.0;
|
|
|
|
use DDP;
|
|
|
|
use experimental 'postderef', 'signatures';
|
|
use List::AllUtils qw/ reduce min max /;
|
|
|
|
my $path = <>;
|
|
chomp $path;
|
|
|
|
my %path;
|
|
|
|
$path{$_}++ for split ',', $path;
|
|
|
|
|
|
my %d = (
|
|
n => [ 0,1],
|
|
s => [ 0,-1],
|
|
e => [ 1, 0],
|
|
w => [ -1,0],
|
|
);
|
|
|
|
|
|
for my $y ( qw/ n s / ){
|
|
for my $e ( qw/ e w / ){
|
|
$d{"$y$e"} = [ map { $_/2 } add( $d{$y}, $d{$e} )->@* ];
|
|
}
|
|
}
|
|
|
|
my $position = [0,0];
|
|
my $max_distance;
|
|
|
|
$position = reduce {
|
|
my $p = add($a,$d{$b});
|
|
$max_distance = max $max_distance, total_distance(@$p);
|
|
$p;
|
|
} $position, split ',', $path;
|
|
|
|
say $max_distance;
|
|
|
|
|
|
sub total_distance ( @position ) {
|
|
my @position = map { abs } @position;
|
|
my $i = min @position;
|
|
return $i + 2 * ( $position[0] - $i) + $position[1];
|
|
}
|
|
|
|
sub add($x,$y) {
|
|
[ map { $x->[$_] + $y->[$_] } 0..1 ]
|
|
}
|