From 18c9417edeaa6482730ebce18e1ba47dfb89cb8a Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Tue, 2 Dec 2025 07:03:41 +0100
Subject: [PATCH] Shorter solution for part 2

---
 2025/04.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/2025/04.pl b/2025/04.pl
index 36c4b97..4ede8a8 100755
--- a/2025/04.pl
+++ b/2025/04.pl
@@ -4,8 +4,6 @@ use v5.42;
 
 my $sum;
 for my ($x, $y) (<> =~ /\d+/g) {
-	for ($x .. $y) {
-		$sum += $_ if /^(\d+)\1+$/;
-	}
+	$sum += $_ for grep /^(\d+)\1+$/, $x .. $y;
 }
 say $sum;
-- 
2.47.3