2015/40.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 my $in = 33100000;
   7
   8 my $maxh = $in;
   9
  10 my @houses;
  11 for my $elf (1 .. $maxh) {
  12         my $h = $elf;
  13         my $count = 50;
  14         do {
  15                 $houses[$h] += 11*$elf;
  16                 $maxh = $h if $houses[$h] >= $in;
  17                 $h += $elf;
  18         } while ($h <= $maxh && --$count);
  19 }
  20
  21 for my $h (1 .. $maxh) {
  22         next if $houses[$h] < $in;
  23         say $h;
  24         last;
  25 }
  26