From a76c81f558d362f595de99d78d6ecd4b91b8f644 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Sat, 7 Dec 2024 12:18:42 +0100 Subject: [PATCH] Day 7: slightly shorter code --- 2024/13.pl | 13 ++++--------- 2024/14.pl | 13 ++++--------- 2 files changed, 8 insertions(+), 18 deletions(-) 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; -- 2.43.5