Day 13: more off-by-one errors.

[aoc2021.git] / 26.pl

diff --git a/26.pl b/26.pl
new file mode 100755 (executable)
index 0000000..c789704
--- /dev/null
+++ b/26.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my %dots;
+
+while (<>) {
+       chomp;
+       my ($x, $y) = split /,/;
+       last if !defined $y;
+       $dots{$x}{$y}++;
+}
+
+my ($maxx, $maxy);
+while (<>) {
+       chomp;
+       my ($axis, $val) = /fold along (.)=(\d+)/;
+
+       $maxx = $val if $axis eq 'x' && (!$maxx || $maxx > $val);
+       $maxy = $val if $axis eq 'y' && (!$maxy || $maxy > $val);
+
+       for my $x (keys %dots) {
+       for my $y (keys %{$dots{$x}}) {
+               if ($axis eq 'x' && $x > $val) {
+                       $dots{2*$val - $x}{$y}++;
+                       delete $dots{$x}{$y};
+               } elsif ($axis eq 'y' && $y > $val) {
+                       $dots{$x}{2*$val - $y}++;
+                       delete $dots{$x}{$y};
+               }
+       } }
+}
+
+for my $y (0 .. $maxy) {
+       for my $x (0 .. 40) {
+               print $dots{$x}{$y} ? '#' : ' ';
+       }
+       print "\n";
+}
+