Year 2015

[aoc.git] / 2015 / 40.pl

diff --git a/2015/40.pl b/2015/40.pl
new file mode 100755 (executable)
index 0000000..8252fa5
--- /dev/null
+++ b/2015/40.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+use strict;
+
+my $in = 33100000;
+
+my $maxh = $in;
+
+my @houses;
+for my $elf (1 .. $maxh) {
+       my $h = $elf;
+       my $count = 50;
+       do {
+               $houses[$h] += 11*$elf;
+               $maxh = $h if $houses[$h] >= $in;
+               $h += $elf;
+       } while ($h <= $maxh && --$count);
+}
+
+for my $h (1 .. $maxh) {
+       next if $houses[$h] < $in;
+       say $h;
+       last;
+}
+