2015/39.pl

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