Task 1 done

1 files changed, 21 insertions, 0 deletions

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;
+}