From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Thu, 5 Dec 2024 10:09:02 +0000 (+0100)
Subject: Day 5: small optimizations
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=1f4054e2b2e530b4b214d3ff32bf19529085b237;p=aoc.git

Day 5: small optimizations
---

diff --git a/2024/09.pl b/2024/09.pl
index 9107de6..3a859c1 100755
--- a/2024/09.pl
+++ b/2024/09.pl
@@ -7,7 +7,7 @@ while (<>) {
 	chomp;
 	last if /^\s*$/;
 	my ($src, $dst) = /\d+/g;
-	$rules{$src}->{$dst}++;
+	$rules{$src}{$dst}++;
 }
 
 my $sum;
@@ -17,8 +17,8 @@ while (<>) {
 	chomp;
 	my @upd = /\d+/g;
 	for my ($i, $u1) (indexed @upd[0 .. $#upd-1]) {
-		for my ($j, $u2) (indexed @upd[$i+1 .. $#upd]) {
-			next UPDATE if $rules{$u2}->{$u1};
+		for my $u2 (@upd[$i+1 .. $#upd]) {
+			next UPDATE if $rules{$u2}{$u1};
 		}
 	}
 	$sum += $upd[@upd/2];
diff --git a/2024/10.pl b/2024/10.pl
index 192084f..1fbd9f0 100755
--- a/2024/10.pl
+++ b/2024/10.pl
@@ -16,7 +16,7 @@ while (<>) {
 	chomp;
 	my @upd = /\d+/g;
 	for my ($i, $u1) (indexed @upd[0 .. $#upd-1]) {
-		for my ($j, $u2) (indexed @upd[$i+1 .. $#upd]) {
+		for my $u2 (@upd[$i+1 .. $#upd]) {
 			goto INCORR if $rules{$u2}{$u1};
 		}
 	}