From ad25423b766497251aa1ed946335c91aa962c582 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 14:32:18 -0500
Subject: solution to 50

---
 050.pl | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 050.pl

diff --git a/050.pl b/050.pl
new file mode 100755
index 0000000..924ce4b
--- /dev/null
+++ b/050.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Math::Prime::XS qw/sieve_primes/;
+use List::Util qw/sum/;
+
+my @primes = sieve_primes(1e6);
+my %primes = map { $_, 1 } @primes;
+
+my $max = 0;
+my $max_sum = 0;
+LENGTH: for my $length (21..1000) {
+    for my $start (0..(@primes - $length)) {
+        my $sum = sum @primes[$start..($start + $length - 1)];
+        next LENGTH if $sum > 1e6;
+        next unless $primes{$sum};
+        if ($length > $max) {
+            $max = $length;
+            $max_sum = $sum;
+        }
+    }
+}
+print "$max_sum\n";
-- 
cgit v1.2.3