aoc2021

commit 44b77ab7cfd37ef64efdfec1ede5d166b41e46b4
parent 094bec40f0aae0fcd80a83e81f8cfbf99da1b598
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Mon, 27 Dec 2021 01:31:46 +0000

cleanup code and remove unnecessary comment and printing lines

Diffstat:
M
day11-1.pl
 | 
7
+------
M
day11-2.pl
 | 
9
+--------

2 files changed, 2 insertions(+), 14 deletions(-)
diff --git a/day11-1.pl b/day11-1.pl
@@ -18,7 +18,7 @@ sub get_filehandle {
   return $filehandle;
 }
 
-sub print_octopuses {
+sub print_octopuses { # for debugging purposes
     my ($oct_ref, $rows, $columns) = @_;
     my @octopuses = @{$oct_ref};
     foreach my $row (0 .. $rows - 2) {
@@ -45,11 +45,7 @@ foreach my $nr (-1 .. 1) {
 }
 my $flash_count = 0;
 
-print_octopuses(\@octopuses, $rows, $columns);
-#say $rows, " x ", $columns;
-#say "@$_" foreach @neighbors;
 foreach my $step (1 .. 100) {
-    #say "after step $step";
     my @queue = ();
     my %flash_state = ();
 # 10 iterate through each octopus and increment its counter by 1
@@ -96,7 +92,6 @@ foreach my $step (1 .. 100) {
             }
         }
     }
-    #print_octopuses(\@octopuses, $rows, $columns);
 }
 
 say "part 1 flash counts = $flash_count";
diff --git a/day11-2.pl b/day11-2.pl
@@ -19,7 +19,7 @@ sub get_filehandle {
   return $filehandle;
 }
 
-sub print_octopuses {
+sub print_octopuses { # for debugging purposes
     my ($oct_ref, $rows, $columns) = @_;
     my @octopuses = @{$oct_ref};
     foreach my $row (0 .. $rows - 2) {
@@ -48,13 +48,8 @@ my $flash_count = 0;
 my $count_on = 0;
 my $step;
 
-print_octopuses(\@octopuses, $rows, $columns);
-#say $rows, " x ", $columns;
-#say "@$_" foreach @neighbors;
 while ($count_on != POPULATION) {
-#foreach my $step (1 .. 100) {
     $step++;
-    #say "after step $step";
     my @queue = ();
     my %flash_state = ();
 # 10 iterate through each octopus and increment its counter by 1
@@ -103,8 +98,6 @@ while ($count_on != POPULATION) {
             }
         }
     }
-    #print_octopuses(\@octopuses, $rows, $columns);
-    say "after step $step, $count_on octopuses flashed";
 }
 
 say "part 2: after step $step, all octopuses flashed";