aoc2015

commit cb71cd9906471154bbbd1e8805f981a7006d5402
parent 1567c9d94981d17a8d1f9fc659270fdfe4cc45d2
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Sun,  6 Nov 2022 13:23:13 +0000

clean up code

Diffstat:
M
day14/day14.pl
 | 
8
--------

1 file changed, 0 insertions(+), 8 deletions(-)
diff --git a/day14/day14.pl b/day14/day14.pl
@@ -4,8 +4,6 @@
 use strict;
 use warnings;
 use v5.32;
-#use lib '.';
-#use Day13 qw( calc_tot_hap_chg );
 use List::Util qw( max );
 use Data::Dumper;
 
@@ -27,15 +25,10 @@ foreach ( split /\n/, $input ) {
 say Dumper \%reindeer;
 
 foreach ( keys %reindeer ) {
-#    say ${$reindeer{ $_ }}{speed};
-#    say $reindeer{ $_ }->{speed};
-#    say $reindeer{ $_ }{ speed };
     my $duration = $reindeer{ $_ }{ fly_duration } +
                    $reindeer{ $_ }{ rest_duration };
     my $distance;
-    say $duration;
     my ( $cycles, $remainder ) = ( int $TIME / $duration, $TIME % $duration );
-    say "$cycles\t$remainder";
     if ( $remainder >= $reindeer{ $_ }{ fly_duration } ) {
         $cycles++;
         $distance = $cycles * $reindeer{ $_ }{ fly_duration } *
@@ -44,7 +37,6 @@ foreach ( keys %reindeer ) {
         $distance = $cycles * $reindeer{ $_ }{ fly_duration } +
                     ( $remainder * $reindeer{ $_ }{ speed } );
     }
-    say "$_ traveled $distance km after $TIME seconds";
     push @distances => $distance;
 }