aoc2021

commit 685fbd8e10248f7bf98b0b64868eca839d8b2282
parent 928681c5620df9a2de3f1a0fed1024aa95f71f18
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Fri, 17 Dec 2021 20:43:48 +0000

cleanup day07-1.pl

Diffstat:
M
day07-1.pl
 | 
15
+--------------

1 file changed, 1 insertion(+), 14 deletions(-)
diff --git a/day07-1.pl b/day07-1.pl
@@ -3,7 +3,6 @@
 use strict;
 use warnings;
 use v5.22;
-use List::Util qw(sum);
 
 sub get_filehandle {
     if (@ARGV !=1) {
@@ -24,29 +23,17 @@ sub get_numbers {
 # Advent of Code 2021 Day 07
 my $filehandle  = get_filehandle();
 my @numbers     = get_numbers($filehandle);
-#my $num_crabs   = scalar(@numbers);
 my $min_fuel_cost;
 my $horiz_pos;
-#say "@numbers";
-
-#if (defined($fuel_cost)) {
-#    say "it's defined";
-#} else {
-#    say "it's NOT defined";
-#}
-
-#say $num_crabs;
 
 foreach my $x (0 .. $#numbers) {
     my $fuel_cost;
     foreach my $y (0 .. $#numbers) {
         $fuel_cost += abs($numbers[$x] - $numbers[$y]);
     }
-    say $x;
-    if ($fuel_cost < $min_fuel_cost || !defined($min_fuel_cost)) {
+    if (!defined($min_fuel_cost) || $fuel_cost < $min_fuel_cost) {
         $min_fuel_cost = $fuel_cost;
         $horiz_pos = $x;
-        say "we have new winning position $x with fuel cost $fuel_cost";
     }
 }