From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Wed, 3 Dec 2025 07:08:03 +0000 (+0100)
Subject: Day 3 part 2: even shorter solution
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=92f1372cc4f9e5c2ded42d944a17de6e3e605309;p=aoc.git

Day 3 part 2: even shorter solution
---

diff --git a/2025/06.pl b/2025/06.pl
index fd27cc9..f7d74ec 100755
--- a/2025/06.pl
+++ b/2025/06.pl
@@ -7,9 +7,8 @@ sub search($in, $res, $len) {
 	return $res if !$len--;
 
 	for my $n (reverse 1 .. 9) {
-		my $re = $n . ('.' x $len);
-		next if $in !~ /$re/;
-		return search($in =~ s/^.*?$n//r, "$res$n", $len);
+		return search($1, "$res$n", $len)
+			if $in =~ /$n(.{$len,})/;
 	}
 }