From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Mon, 1 Dec 2025 07:19:15 +0000 (+0100)
Subject: Day 1: shortened solution
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=0a0cb8ab2c0563a43e62bad2b39d4386d5f78071;p=aoc.git

Day 1: shortened solution
---

diff --git a/2025/01.pl b/2025/01.pl
index 066423e..dee32df 100755
--- 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 a394ac1..4516e74 100755
--- 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;