From 8178bf23f8ff274ff80686f4cea19f849c853f08 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Sat, 10 Dec 2022 06:44:19 +0100 Subject: [PATCH] Day 10: off-by-ones --- 2022/19.pl | 29 +++++++++++++++++++++++++++++ 2022/20.pl | 28 ++++++++++++++++++++++++++++ 2 files changed, 57 insertions(+) create mode 100755 2022/19.pl create mode 100755 2022/20.pl diff --git a/2022/19.pl b/2022/19.pl new file mode 100755 index 0000000..bb8db33 --- /dev/null +++ b/2022/19.pl @@ -0,0 +1,29 @@ +#!/usr/bin/perl -w + +use v5.36; +use strict; +use experimental 'multidimensional'; + +my $tsc = 1; +my $x = 1; +my $prev_gen = 0; +my $sum = 0; +while (<>) { + my ($op, $num) = /^(\w+)(?: (-?\d+))?/; + # say "$tsc $x $op $num"; + $tsc++; + my $gen = int(($tsc+20)/40); + if ($gen != $prev_gen) { + $prev_gen = $gen; + my $str = $x * ((40*$gen)-20); + $sum += $str; + # say "$tsc x $x = ", $str; + } + if ($op eq 'addx') { + $x += $num; + $tsc++; + } +} + +say $sum; + diff --git a/2022/20.pl b/2022/20.pl new file mode 100755 index 0000000..9c2a59d --- /dev/null +++ b/2022/20.pl @@ -0,0 +1,28 @@ +#!/usr/bin/perl -w + +use v5.36; +use strict; +use experimental 'multidimensional'; + +my $tsc = 1; +my $prev_tsc = 1; +my $x = 1; +my $prev_gen = 0; +while (<>) { + my ($op, $num) = /^(\w+)(?: (-?\d+))?/; + + $tsc++; + while ($prev_tsc <= $tsc) { + # say "$prev_tsc ok" if $x +2 <= $prev_tsc; + my $off = $prev_tsc % 40; + print(($x <= $off && $x + 2 >= $off) ? '#' : '.'); + print "\n" if $prev_tsc % 40 == 0; + $prev_tsc++; + } + if ($op eq 'addx') { + $x += $num; + $tsc++; + } +} +print "\n"; + -- 2.43.5