Shorter solution for part 2

diff --git a/2025/04.pl b/2025/04.pl
index 36c4b970fc4a3c4e2227e0cf3994664db5a6f53f..4ede8a8223f8d6f5991dc3c181b795cb19094343 100755 (executable)
--- 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;