From 205c7164fa2bda84ab8af1414b20c1a722444470 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Wed, 25 Dec 2024 06:19:18 +0100
Subject: [PATCH] Day 25: shortened version

---
 2024/49.pl | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/2024/49.pl b/2024/49.pl
index ef8069a..54bdc46 100755
--- a/2024/49.pl
+++ b/2024/49.pl
@@ -3,17 +3,17 @@
 use v5.40;
 
 $/ = "\n\n";
-my @keys = <>;
-
+my @keys;
 my $pairs;
-for my ($i, $k1) (indexed @keys) {
+while (<>) {
 	K2:
-	for my $k2 (@keys[$i+1 .. $#keys]) {
-		for my $i (0 .. length $k1) {
-			next K2 if substr($k1, $i, 1) eq '#'
-				&& substr($k2, $i, 1) eq '#';
+	for my $k (@keys) {
+		for my $i (0 .. length) {
+			next K2 if substr($_, $i, 1) eq '#'
+				&& substr($k, $i, 1) eq '#';
 		}
 		$pairs++;
 	}
+	push @keys, $_;
 }
 say $pairs;
-- 
2.43.5