aoc2021

commit a1bcb3cd4a98c0177e17d5766abbc454b9c767f7
parent 62e87fec5c27459509d19608197cedb92cb45037
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 17 Dec 2021 19:03:02 +0000

clean up day06.pl

Diffstat:
M
day06.pl
 | 
18
+++---------------

1 file changed, 3 insertions(+), 15 deletions(-)
diff --git a/day06.pl b/day06.pl
@@ -3,7 +3,6 @@
 use strict;
 use warnings;
 use v5.22;
-use Data::Dumper;
 use List::Util qw(sum);
 
 sub get_filehandle {
@@ -22,32 +21,21 @@ sub get_numbers {
     return (split( ",", $numbers));
 }
 
-# Advent of Code 2021 Day 04 Part 1
-# initialize variables
+# Advent of Code 2021 Day 06
 my $filehandle  = get_filehandle();
 my @numbers     = get_numbers($filehandle);
-#say "@numbers";
-# initialize fish timer
+my $days = 80; # update this for Parts 1 and 2
 my %fish_timer = map { $_, 0 } (0 .. 8);
 $fish_timer{$_}++ foreach (@numbers);
-#print Dumper (\%fish_timer);
 for (my $i = 0; $i < 80; $i++) {  # loop for number of days
-    #say "day ", $i+1;
     my %tmp_timer = ();
     foreach my $age (reverse 1 .. 8) { # loop for each age
-        #say "age is $age";
         $tmp_timer{$age - 1} = $fish_timer{$age};
     }
     # process fish with timer of 0
     $tmp_timer{6} += $fish_timer{0};
     $tmp_timer{8} += $fish_timer{0};
     %fish_timer = %tmp_timer;
-    #say "after day ", $i + 1, ":";
-    #for (0 .. 8) {
-        #say "there are $fish_timer{$_} fish at timer $_";
-    #}
-    #say "after day ", $i+1, " there are ", sum( values %fish_timer), " fish"; 
 }
 
-my $total_fish = sum values %fish_timer;
-say $total_fish;
+say sum values %fish_timer;