From 23bc3b117bc1971df65bba67b94415427c5893a9 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 28 Jun 2021 14:46:22 +0200
Subject: Task 1 done

---
 challenge-119/luca-ferrari/raku/ch-1.p6 | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 challenge-119/luca-ferrari/raku/ch-1.p6

diff --git a/challenge-119/luca-ferrari/raku/ch-1.p6 b/challenge-119/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..2d8d1b200c
--- /dev/null
+++ b/challenge-119/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,20 @@
+#!raku
+
+
+sub MAIN( Int $N where { $N < 256 && $N >= 0 } ) {
+
+    # create an 8 digits binary string
+    '%08d'.sprintf( $N.base( 2 ) )
+    # separate each digit into an array
+    .split( '', :skip-empty )
+    # rotate by four elements
+    .rotate( 4 )
+    # recombine
+    .join
+    # reparse as binary
+    .Str
+    .parse-base( 2 )
+    # and print
+    .say;
+
+}
-- 
cgit 


From 2a697a8247142bf75ea6672f88ea7aa7d86a606c Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 28 Jun 2021 15:54:38 +0200
Subject: Task 2 done

---
 challenge-119/luca-ferrari/raku/ch-2.p6 | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 challenge-119/luca-ferrari/raku/ch-2.p6

diff --git a/challenge-119/luca-ferrari/raku/ch-2.p6 b/challenge-119/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..9d1606dd27
--- /dev/null
+++ b/challenge-119/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,17 @@
+#!raku
+
+
+sub MAIN( Int $N where { $N > 0 } ) {
+
+    my @numbers = lazy gather {
+        for 1 .. Inf {
+            next if $_ ~~ / (11)+ /;
+            next if $_ ~~ / <[04..9]> /;
+            
+            take $_;
+            
+        }
+    }
+
+    @numbers[ $N - 1 ].say;
+}
-- 
cgit 


From f1435acc3809b174052e4bf5ba650f59115ff45f Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 28 Jun 2021 16:14:30 +0200
Subject: Blog references

---
 challenge-119/luca-ferrari/blog-1.txt | 1 +
 challenge-119/luca-ferrari/blog-2.txt | 1 +
 2 files changed, 2 insertions(+)
 create mode 100644 challenge-119/luca-ferrari/blog-1.txt
 create mode 100644 challenge-119/luca-ferrari/blog-2.txt

diff --git a/challenge-119/luca-ferrari/blog-1.txt b/challenge-119/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..21dd90aa88
--- /dev/null
+++ b/challenge-119/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/06/28/PerlWeeklyChallenge119.html#task1
diff --git a/challenge-119/luca-ferrari/blog-2.txt b/challenge-119/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..15c5632c26
--- /dev/null
+++ b/challenge-119/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/06/28/PerlWeeklyChallenge119.html#task2
-- 
cgit