problem 58

1 files changed, 26 insertions, 0 deletions

diff --git a/058.pl b/058.pl
new file mode 100644
index 0000000..7476faf
--- /dev/null
+++ b/058.pl
@@ -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;
+    }
+}