From 1f4054e2b2e530b4b214d3ff32bf19529085b237 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Thu, 5 Dec 2024 11:09:02 +0100 Subject: [PATCH] Day 5: small optimizations --- 2024/09.pl | 6 +++--- 2024/10.pl | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) 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}; } } -- 2.43.5