19 lines
254 B
Perl
19 lines
254 B
Perl
use 5.20.0;
|
|
|
|
use List::AllUtils qw/ sum /;
|
|
use Math::Prime::Util ':all';
|
|
|
|
my $x = 34000000;
|
|
|
|
my $house = 1;
|
|
|
|
$house++ while( nbr_gifts($house) < $x );
|
|
|
|
say $house;
|
|
|
|
sub nbr_gifts {
|
|
my $n = shift;
|
|
|
|
11 * sum grep { 50 * $_ >= $n } divisors($n);
|
|
}
|