Day 1: shortened solution

diff --git a/2025/01.pl b/2025/01.pl
index 066423e571467688a5a776f048bc112ec0483586..dee32dfc20aeccbe3a792f6184bce9032b6a4c66 100755 (executable)
--- a/2025/01.pl
+++ b/2025/01.pl
@@ -3,13 +3,13 @@
 use v5.42;
 
 my $n = 50;
-my $z = 0;
+my $z;
 
 while (<>) {
        y/LR/-+/;
        $n += $_;
        $n %= 100;
-       say "n=$n";
        $z++ if !$n;
 }
+
 say $z;

diff --git a/2025/02.pl b/2025/02.pl
index a394ac19f50dc7d90bcb730618f23cbe9beda34b..4516e743b44f9f2070418a71f0aeff98a03cf343 100755 (executable)
--- a/2025/02.pl
+++ b/2025/02.pl
@@ -3,21 +3,19 @@
 use v5.42;
 
 my $n = 50;
-my $z = 0;
+my $z;
 
 while (<>) {
        y/LR/-+/;
-       my $p = $n;
        $n += $_;
        if ($n < 0) {
-               $z += 1 + int(-$n/100);
-               $z-- if !$p;
-       } elsif ($n >= 100) {
-               $z += int($n/100);
-       } elsif ($n == 0) {
+               $z += !!($n - $_) + int(-$n/100);
+       } elsif (!$n) {
                $z++;
+       } else {
+               $z += int($n/100);
        }
        $n %= 100;
-       say "n=$n, z=$z";
 }
+
 say $z;