Merge pull request #4366 from fluca1978/pwc119

Pwc119

4 files changed, 39 insertions, 0 deletions

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
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;
+
+}
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;
+}