]> www.fi.muni.cz Git - aoc2021.git/blob - 21.pl
Day 13: more off-by-one errors.
[aoc2021.git] / 21.pl
1 #!/usr/bin/perl -w
2
3 use v5.16;
4
5 my @m = map { chomp; [ split // ] } <>;
6
7 my $sum;
8 for (1 .. 100) {
9         my %f;
10         my @q;
11         for my $x (0 .. 9) {
12         for my $y (0 .. 9) {
13                 next if $f{$x,$y};
14                 next if ++$m[$y][$x] < 10;
15                 $f{$x,$y} = 1;
16                 push @q, [$x,$y];
17                 say "flashed:$x,$y";
18         } }
19         while (@q) {
20                 my $p = shift @q;
21                 my ($x2, $y2) = @$p;
22
23                 for my $dx (-1 .. 1) {
24                 for my $dy (-1 .. 1) {
25                         next if $dx == 0 && $dy == 0;
26                         next if $x2+$dx < 0 || $x2+$dx > 9;
27                         next if $y2+$dy < 0 || $y2+$dy > 9;
28                         next if $f{$x2+$dx,$y2+$dy};
29                         say $x2+$dx, ',', $y2+$dy, ' >',$m[$y2+$dy][$x2+$dx];
30                         next if ++$m[$y2+$dy][$x2+$dx] < 10;
31                         $f{$x2+$dx,$y2+$dy} = 1;
32                         push @q, [$x2+$dx, $y2+$dy];
33                         say "flashed ", $x2+$dx,',',$y2+$dy;
34                 } }
35         }
36         for my $p (keys %f) {
37                 my ($x, $y) = split /$;/, $p;
38                 $m[$y][$x] = 0;
39         }
40         say "Step $_ flashes ", scalar keys %f;
41         say join("\n", map { join('', @$_) } @m);
42         say;
43         # last if $_ > 1;
44         $sum += keys %f;
45 }
46
47 say $sum;
48