From 0a0cb8ab2c0563a43e62bad2b39d4386d5f78071 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Mon, 1 Dec 2025 08:19:15 +0100
Subject: [PATCH] Day 1: shortened solution

---
 2025/01.pl |  4 ++--
 2025/02.pl | 14 ++++++--------
 2 files changed, 8 insertions(+), 10 deletions(-)

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;
-- 
2.47.3