From 0e52573b8c2a5377f32ffac7ee8db66126844138 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 15 May 2009 18:52:34 -0500
Subject: solution for 35

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

diff --git a/035.pl b/035.pl
new file mode 100755
index 0000000..a7a34cb
--- /dev/null
+++ b/035.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Math::Prime::XS qw/sieve_primes/;
+use List::MoreUtils qw/all/;
+
+sub rotations {
+    my $str = shift;
+    my @ret;
+    for (1..(length $str)) {
+        push @ret, $str;
+        my $letter = substr $str, 0, 1, '';
+        $str = "$str$letter";
+    }
+    return @ret;
+}
+
+my %primes = map { $_, 1 } sieve_primes(1e6);
+my $total = 0;
+for my $prime (keys %primes) {
+    $total++ if all { exists $primes{$_} } rotations($prime);
+}
+print "$total\n";
-- 
cgit v1.2.3