From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Sat, 7 Dec 2024 11:18:42 +0000 (+0100)
Subject: Day 7: slightly shorter code
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=a76c81f558d362f595de99d78d6ecd4b91b8f644;p=aoc.git

Day 7: slightly shorter code
---

diff --git a/2024/13.pl b/2024/13.pl
index 17f5a40..19cddc8 100755
--- 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 40faef1..d585ce4 100755
--- 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;