From 33fcfaa5daaa425e26ae627d42993e6542b80fbc Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Mon, 1 Dec 2025 06:53:01 +0100 Subject: [PATCH] Day 1: off-by-one errors everywhere --- 2025/01.pl | 15 +++++++++++++++ 2025/02.pl | 23 +++++++++++++++++++++++ 2 files changed, 38 insertions(+) create mode 100755 2025/01.pl create mode 100755 2025/02.pl 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; -- 2.47.3