adventofcode/2017/08/2.pl

18 lines
219 B
Perl
Raw Normal View History

2017-12-08 18:19:49 +00:00
use 5.20.0;
use List::AllUtils qw/ max /;
my %reg;
my $max;
while(<>) {
s/^(\w+)/\$reg{$1}/;
s/(?<=if )(\w+)/\$reg{$1}/;
s/dec/-=/;
s/inc/+=/;
eval;
$max = max $max, values %reg;
}
say $max;