Task 1 done

1 files changed, 11 insertions, 0 deletions

diff --git a/challenge-156/luca-ferrari/raku/ch-1.p6 b/challenge-156/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..3b3bcc727a
--- /dev/null
+++ b/challenge-156/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,11 @@
+#!raku
+
+sub MAIN( Int $limit where { $limit > 0 } = 10 ) {
+    my @pernicious = lazy gather {
+	for 1 .. Inf {
+	    take $_ if $_.base( 2 ).comb.sum.is-prime;
+	}
+    };
+
+    @pernicious[ 0 .. $limit - 1 ].join( ', ' ).say;
+}