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