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

17 lines
219 B
Perl

use 5.20.0;
my %reg;
while(<>) {
s/^(\w+)/\$reg{$1}/;
s/(?<=if )(\w+)/\$reg{$1}/;
s/dec/-=/;
s/inc/+=/;
eval;
}
use List::UtilsBy qw/ max_by /;
use List::AllUtils qw/ max /;
say max values %reg;