aoc2022

commit 5893765b96d79dcd5ada1c5c3cf58ce30e9351be
parent a6fe4e87369bbf126742b5e2af65e4de02d6e856
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 30 Dec 2022 20:22:15 +0000

clean up code

Diffstat:
M
day10/day10.pl
 | 
21
++-------------------

1 file changed, 2 insertions(+), 19 deletions(-)
diff --git a/day10/day10.pl b/day10/day10.pl
@@ -13,33 +13,16 @@ use List::Util qw( sum );
 my @x;
 my $cycle = 0;
 $x[ $cycle ] = 1;
-#my $ADDX_CYCLE = 2;
-#my $NOOP_CYCLE = 1;
 
 foreach ( split /\n/, $input ) {
-    #say $_;
     my ( $instruction, $value ) = m/(noop|addx)\s?(-?\d+)?/;
-#    print "$instruction ";
-#    print $value if $value;
-#    say '';
     $cycle++;
-    if ( $instruction eq 'noop' ) {
-        $x[ $cycle ] = $x[ $cycle - 1 ];
-    } else {
-        $x[ $cycle ] = $x[ $cycle - 1 ];
-        #say "after cycle $cycle, X is $x[$cycle]";
+    $x[ $cycle ] = $x[ $cycle - 1 ];
+    if ( $instruction eq 'addx' ) {
         $cycle++;
         $x[ $cycle ] = $x[ $cycle -1 ] + $value;
     }
-    #say "after cycle $cycle, X is $x[$cycle]";
 }
 
 my @cycles = (20,60,100,140,180,220);
-#my $sum=0;
-#foreach (@cycles) {
-#    #say $_, " ", $x[$_-1];
-#    $sum+= $_ * $x[$_-1];
-#}
-
-#say "part 1: ", $sum;
 say "part 1: ", sum( map{ $_ * $x[ $_ - 1 ] } @cycles );