From 340f3db93536904aff14b86a90ffec06b256210d Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 24 Jan 2022 10:45:42 +0100
Subject: Task 1 done

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

diff --git a/challenge-149/luca-ferrari/raku/ch-1.p6 b/challenge-149/luca-ferrari/raku/ch-1.p6
new file mode 100755
index 0000000000..2282387013
--- /dev/null
+++ b/challenge-149/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,13 @@
+#!raku
+
+sub MAIN( Int $N where { $N > 0 } ) {
+    my @fibonacci = 1, 1, * + * ... *;
+    my $fibonacci-index = $N;
+    my @numbers = lazy gather {
+        for 0 .. Inf -> $i {
+            take $i and $fibonacci-index += $N if @fibonacci[ 0 .. $fibonacci-index ].grep( $i.split( '' ).sum );;
+        }
+    };
+
+    @numbers[ 0 .. $N - 1 ].join( ',' ).say;
+}
-- 
cgit