From f00ed31e63ba99d4b62d7b16e3a04f470bc085bb Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sat, 16 May 2009 13:18:59 -0500
Subject: solution for 49

---
 049.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 049.pl

diff --git a/049.pl b/049.pl
new file mode 100755
index 0000000..10d714f
--- /dev/null
+++ b/049.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Math::Prime::XS qw/sieve_primes is_prime/;
+
+my @possibilities = sieve_primes(1000,9999);
+my %primes = map { $_, 1 } @possibilities;
+
+PRIME: for my $prime (@possibilities) {
+    for my $inc (2..4500) {
+        my ($prime2, $prime3) = ($prime + $inc, $prime + $inc + $inc);
+        next PRIME if $prime3 > 9999;
+        next unless $primes{$prime2} && $primes{$prime3};
+        my @sort = map { join '', sort split //, $_ } $prime, $prime2, $prime3;
+        if ($sort[0] eq $sort[1] && $sort[0] eq $sort[2]) {
+            print "$prime$prime2$prime3\n";
+        }
+    }
+}
-- 
cgit v1.2.3