diff options
author | Jesse Luehrs <doy@tozt.net> | 2016-09-29 04:10:29 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2016-09-29 04:10:29 -0400 |
commit | 8204a99f8bde2bc80abd781330a339ee450472d3 (patch) | |
tree | 05d935bfa22a41c80eff1e1d8ec3427af24fbdea /058.pl | |
parent | 2789f9ea1968e6eb0defe06c92cb7a7f544191b3 (diff) | |
download | projecteuler-8204a99f8bde2bc80abd781330a339ee450472d3.tar.gz projecteuler-8204a99f8bde2bc80abd781330a339ee450472d3.zip |
problem 58
Diffstat (limited to '058.pl')
-rw-r--r-- | 058.pl | 26 |
1 files changed, 26 insertions, 0 deletions
@@ -0,0 +1,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; + } +} |