adventofcode/2016/02/1.pl
Yanick Champoux a1a18c063e 2016-02
2017-12-20 11:37:43 -05:00

36 lines
515 B
Perl

use 5.20.0;
use List::AllUtils qw/ reduce min max /;
my @grid = (
[ 1,2,3],
[4,5,6],
[7,8,9],
);
my %d = (
U => [ -1, 0 ],
R => [ 0, 1 ],
L => [ 0, -1 ],
D => [ 1, 0 ],
);
my $coord = [ 1,1 ];
while(<>) {
chomp;
$coord = reduce {
my $n = $d{$b};
use DDP;
# p $a;
[
map { max 0, min $_, 2 }
map { $a->[$_] + $n->[$_] }
0..1
]
} $coord, split '';
say $grid[$coord->[0]][$coord->[1]];
}