Day 5: small optimizations

diff --git a/2024/09.pl b/2024/09.pl
index 9107de6c6bac0e6564ef4398d18b2a2f90c763d5..3a859c19711354f462783a7d89635346d32265e9 100755 (executable)
--- 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 192084f577bd4a327946eaf387a15334bcc2f4a9..1fbd9f0c0a5946b32e04488c9b7d675768fd7510 100755 (executable)
--- 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};
                }
        }