day08

08/1.pl

@@ -0,0 +1,16 @@
+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;

08/2.pl

@@ -0,0 +1,17 @@
+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;