Merge pull request #3372 from fluca1978/pwc97

Pwc97

4 files changed, 42 insertions, 0 deletions

diff --git a/challenge-097/luca-ferrari/blog-1.txt b/challenge-097/luca-ferrari/blog-1.txt
new file mode 100644
index 0000000000..97c76f94e4
--- /dev/null
+++ b/challenge-097/luca-ferrari/blog-1.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/01/25/PerlWeeklyChallenge97.html#task1
diff --git a/challenge-097/luca-ferrari/blog-2.txt b/challenge-097/luca-ferrari/blog-2.txt
new file mode 100644
index 0000000000..e195e7432a
--- /dev/null
+++ b/challenge-097/luca-ferrari/blog-2.txt
@@ -0,0 +1 @@
+https://fluca1978.github.io/2021/01/25/PerlWeeklyChallenge97.html#task2
diff --git a/challenge-097/luca-ferrari/raku/ch-1.p6 b/challenge-097/luca-ferrari/raku/ch-1.p6
new file mode 100644
index 0000000000..483797f301
--- /dev/null
+++ b/challenge-097/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,20 @@
+#!raku
+
+
+sub MAIN( Str $S = "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG",
+          Int $N where { $N > 0 && $N < ( 'A' .. 'Z' ).elems } = 3 ) {
+    my @alphabet = 'A' .. 'Z';
+    my %cipher;
+    # my $index = @alphabet.elems - $N;
+    # for @alphabet {
+    #     %cipher{ $_ } = @alphabet[ $index ];
+    #     $index = $index + 1 < @alphabet.elems ?? $index + 1 !! 0 ;
+    # }
+
+    %cipher{ @alphabet[ $_ ] } = @alphabet.rotate( $N * -1  )[ $_ ] for ^@alphabet.elems;
+
+    my @encoded;
+    @encoded.push: %cipher{ $_ }:exists ?? %cipher{ $_ } !! $_ for $S.uc.comb;
+    #    "Encoded string for text\n$S\nis\n{ @encoded.join('') }\n".say
+    @encoded.join.say;
+}
diff --git a/challenge-097/luca-ferrari/raku/ch-2.p6 b/challenge-097/luca-ferrari/raku/ch-2.p6
new file mode 100644
index 0000000000..7746228800
--- /dev/null
+++ b/challenge-097/luca-ferrari/raku/ch-2.p6
@@ -0,0 +1,20 @@
+#!raku
+
+
+sub MAIN( Str $B = "101100101",
+          Int $S = 3 ) {
+
+    my @splits = $B.comb: $S.Int;
+    my $flips = 0;
+
+    my ( $a, $b ) = @splits[ 0 ], Nil;
+
+    for 1 ..^ @splits.elems  {
+        $b = @splits[ $_ ];
+
+        # find out how many chars are different
+        $flips++ if ( $a.comb[ $_ ] != $b.comb[ $_ ] ) for ^@$a.comb.elems;
+    }
+
+    say $flips;
+}