Task 1 done

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-147/luca-ferrari/raku/ch-1.p6 b/challenge-147/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..53eb20c0c0
--- /dev/null
+++ b/challenge-147/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,17 @@
+#!raku
+
+sub MAIN( Int $limit = 20 ) {
+
+    my @primes;
+
+    for 10 .. Inf -> $current {
+        next if $current ~~ / 0 /;
+        next if ! $current.is-prime;
+        my @values.push: $current.comb[ $_ .. * - 1 ].join.Int for 0 ..^ $current.Str.chars;
+        @primes.push: $current if @values.grep( *.is-prime ).elems == @values.elems;
+        last if @primes.elems >= $limit;
+
+    }
+
+    @primes.join( "\n" ).say;
+}