adventofcode/2017/08/2.pl
2017-12-28 12:14:51 -05:00

18 lines
219 B
Perl

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;