Day 7: slightly shorter code

diff --git a/2024/13.pl b/2024/13.pl
index 17f5a40f8bd86fa2cda54e8ae749fecccfcc4b1a..19cddc80615fda2bcd47be75c952e92e9fda58ea 100755 (executable)
--- a/2024/13.pl
+++ b/2024/13.pl
@@ -8,17 +8,12 @@ sub test {
        if (defined $v2) {
                test($res, $v1+$v2, @rest);
                test($res, $v1*$v2, @rest);
-       } else {
-               if ($v1 == $res) {
-                       $sum += $res;
-                       die;
-               }
+       } elsif ($v1 == $res) {
+               $sum += $res;
+               die;
        }
 }
 
-while (<>) {
-       my @v = /\d+/g;
-       eval { test(@v); };
-}
+eval { test(/\d+/g); } for <>;
 
 say $sum;

diff --git a/2024/14.pl b/2024/14.pl
index 40faef11b608e939f81d13eacf32b127458938ca..d585ce435b15aee718aca0e206822651a124a2e0 100755 (executable)
--- a/2024/14.pl
+++ b/2024/14.pl
@@ -9,17 +9,12 @@ sub test {
                test($res, $v1+$v2, @rest);
                test($res, $v1*$v2, @rest);
                test($res, "$v1$v2", @rest);
-       } else {
-               if ($v1 == $res) {
-                       $sum += $res;
-                       die;
-               }
+       } elsif ($v1 == $res) {
+               $sum += $res;
+               die;
        }
 }
 
-while (<>) {
-       my @v = /\d+/g;
-       eval { test(@v); };
-}
+eval { test(/\d+/g); } for <>;
 
 say $sum;