From: Jan "Yenya" Kasprzak <kas@fi.muni.cz>
Date: Mon, 1 Dec 2025 05:53:01 +0000 (+0100)
Subject: Day 1: off-by-one errors everywhere
X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=commitdiff_plain;h=33fcfaa5daaa425e26ae627d42993e6542b80fbc;p=aoc.git

Day 1: off-by-one errors everywhere
---

diff --git a/2025/01.pl b/2025/01.pl
new file mode 100755
index 0000000..066423e
--- /dev/null
+++ b/2025/01.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use v5.42;
+
+my $n = 50;
+my $z = 0;
+
+while (<>) {
+	y/LR/-+/;
+	$n += $_;
+	$n %= 100;
+	say "n=$n";
+	$z++ if !$n;
+}
+say $z;
diff --git a/2025/02.pl b/2025/02.pl
new file mode 100755
index 0000000..a394ac1
--- /dev/null
+++ b/2025/02.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+use v5.42;
+
+my $n = 50;
+my $z = 0;
+
+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 %= 100;
+	say "n=$n, z=$z";
+}
+say $z;