From a2dfc4d9f20eba1fb7e7e2e1f86bf732e334a246 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 30 May 2022 10:13:27 +0200
Subject: Task 1 done

---
 challenge-167/luca-ferrari/raku/ch-1.p6 | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100755 challenge-167/luca-ferrari/raku/ch-1.p6

(limited to 'challenge-167')

diff --git a/challenge-167/luca-ferrari/raku/ch-1.p6 b/challenge-167/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..ff4a600938
--- /dev/null
+++ b/challenge-167/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,21 @@
+#!raku
+
+# Perl Weekly Challenge 167
+
+sub is-circular-prime( Int $prime )
+{
+    return False if ! $prime.is-prime;
+
+    my @digits = $prime.comb;
+    my $found = True;
+    for 1 ..^ @digits.elems {
+        return False if ! ( |@digits[ $_ .. * - 1], |@digits[ 0 .. $_ - 1 ] ).join.Int.is-prime;
+    }
+
+    return True;
+}
+
+
+sub MAIN() {
+    (100 .. 999).grep( { is-circular-prime( $_ ) } ).join( "\n" ).say;
+}
-- 
cgit