From 419a75e0d3adf1af222938e20750cb6e60b36639 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 6 Jun 2022 10:15:06 +0200
Subject: Task 1 done

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

diff --git a/challenge-168/luca-ferrari/raku/ch-1.p6 b/challenge-168/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..7059667b9b
--- /dev/null
+++ b/challenge-168/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,21 @@
+#!raku
+
+# Perl Weekly Challenge 168
+
+sub MAIN( Int $limit where { $limit > 1 } = 13 ) {
+
+    # this requires too much time!
+    # my @perrin = 3, 0, 2, -> $left, $right { $left + $right } ... *;
+    # my @perrin-primes = @perrin.grep( *.is-prime );
+    # @perrin-primes.unique.head( 3 ).join( "\n" ).say;
+
+    my @perrin = 3, 0, 2;
+    my @perrin-primes;
+
+    while ( @perrin-primes.elems < $limit ) {
+        @perrin.push: @perrin[ * - 2 ] + @perrin[ * - 3 ];
+        @perrin-primes.push: @perrin[ * - 1 ] if @perrin[ * - 1 ].is-prime && ! @perrin-primes.grep( @perrin[ * - 1 ] );
+    }
+
+    @perrin-primes.sort.join( "\n" ).say;
+}
-- 
cgit