From 92f1372cc4f9e5c2ded42d944a17de6e3e605309 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Wed, 3 Dec 2025 08:08:03 +0100 Subject: [PATCH] Day 3 part 2: even shorter solution --- 2025/06.pl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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,})/; } } -- 2.47.3