aoc2015

commit a187095cec4c0a1409d595d7ca6e37158d0065d3
parent 8428b1f91fbddff5b33d12faccedf1f9b9ce1f96
Author: Samir Parikh <noreply@samirparikh.com>
Date:   Sat, 12 Nov 2022 15:58:37 +0000

work in progress

Diffstat:
M
day20/day20.pl
 | 
39
+++++++++++++++++++++++++++++++++++++++

1 file changed, 39 insertions(+), 0 deletions(-)
diff --git a/day20/day20.pl b/day20/day20.pl
@@ -13,3 +13,42 @@ my $house_number = 1;
 
 $house_number++ while ( sum( divisors( $house_number ) ) * 10 < $input );
 say "part 1: ", $house_number;
+
+
+#my $NUM_ELVES = 8;
+my $MAX_HOUSES = 50;
+my $PRESENTS_PER_HOUSE = 11;
+my %presents;
+my $target = 400;
+my $elf = 1;
+
+#foreach my $elf ( 1 .. $NUM_ELVES ) {
+while (1) {
+    my $house_number = $elf;
+    foreach my $house ( 1 .. $MAX_HOUSES ) {
+        print "elf $elf is delivering ", $elf * $PRESENTS_PER_HOUSE, " presents to house $house_number ";
+        $presents{ $house_number } += $elf * $PRESENTS_PER_HOUSE;
+        say "which now has $presents{$house_number} presents";
+        if ( $presents{ $house_number } >= $input ) {
+            say "part 2: ", $house_number;
+            exit;
+        }
+        $house_number += $elf;
+    }
+    $elf++;
+}
+
+
+#foreach my $elf ( 1 .. $NUM_ELVES ) {
+#    my $house_number = $elf;
+#    foreach my $house ( 1 .. $MAX_HOUSES ) {
+#        print "elf $elf is delivering ", $house_number * $PRESENTS_PER_HOUSE, " presents to house $house_number ";
+#        $presents{ $house_number } += $house_number * $PRESENTS_PER_HOUSE;
+#        say "which now has $presents{$house_number} presents";
+#        if ( $presents{ $house_number } > $target ) {
+#            say "part 2: ", $house_number;
+#            exit;
+#        }
+#        $house_number += $elf;
+#    }
+#}