adventofcode/2020/12/part1.pm
2021-12-05 11:51:21 -05:00

67 lines
1.0 KiB
Perl

package P1;
use 5.20.0;
use warnings;
use List::AllUtils qw/ /;
use Math::Vector::Real;
use Moose;
use MooseX::MungeHas 'is_rw';
use experimental qw/ signatures postderef switch /;
has coords => sub {
return V(0,0);
};
has facing => sub {
1;
};
my @delta = (
V(0,1),
V(1,0),
V(0,-1),
V(-1,0),
);
sub delta {
return \@delta;
}
sub turn($self,$n) {
my $d = ($self->facing + $n/90)%4;
$self->facing($d);
}
sub move($self,$m) {
$m =~ /(.)(\d+)/;
my ( $x, $c ) = ($1,$2);
my $coords = $self->coords;
given($x) {
$coords += $c * $delta[$self->facing] when 'F';
$coords += $c * $delta[0] when 'N';
$coords += $c * $delta[1] when 'E';
$coords += $c * $delta[2] when 'S';
$coords += $c * $delta[3] when 'W';
$self->turn($c) when 'R';
$self->turn(-$c) when 'L';
}
$self->coords($coords);
}
sub solution($class,@instructions) {
my $self = $class->new;
$self->move($_) for @instructions;
$self->coords->manhattan_dist(V(0,0));
}
1;