Task 1 done

1 files changed, 22 insertions, 0 deletions

diff --git a/challenge-155/luca-ferrari/raku/ch-1.p6 b/challenge-155/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..1eb9734339
--- /dev/null
+++ b/challenge-155/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,22 @@
+#!raku
+
+sub MAIN( Int $limit where { $limit > 0 } = 8 ) {
+    my @fortunate-numbers = lazy gather {
+        for 2 .. Inf {
+            my @pn = ( 1 .. $_ ).grep: *.is-prime;
+            next if ! @pn;
+            for @pn.max + 1 .. Inf -> $m {
+                take $m and last if ( ( [*] @pn ) + $m ).is-prime;
+            }
+        }
+    }
+
+    my @unique-fortunate-numbers;
+    my $last-number = 0;
+    while ( @unique-fortunate-numbers.elems < $limit ) {
+        my $fortunate = @fortunate-numbers[ $last-number++ ];
+        @unique-fortunate-numbers.push: $fortunate if ! @unique-fortunate-numbers.grep: * ~~ $fortunate;
+    }
+
+    @unique-fortunate-numbers[ 0 .. $limit ].sort.join( "\n" ).say;
+}