summaryrefslogtreecommitdiffstats
path: root/058.pl
blob: 7476faf0f63b61f061a4653eef8d7bf23235a07d (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/env perl
use strict;
use warnings;
use 5.014;

use Math::Prime::XS qw(is_prime);

my $incr = 0;
my $val = 1;
my $total = 1;
my $primes = 0;

while (1) {
    $incr += 2;

    for (1..4) {
        $val += $incr;
        $total++;
        $primes++ if is_prime($val);
    }

    if ($total / $primes > 10) {
        say $incr + 1;
        exit;
    }
}