Task 1 deon

1 files changed, 19 insertions, 0 deletions

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..970bd2379b
--- /dev/null
+++ b/challenge-097/luca-ferrari/raku/ch-1.p6
@@ -0,0 +1,19 @@
+#!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;
+
+    say "Encoding $S";
+    print %cipher{ $_ }:exists ?? %cipher{ $_ } !! $_ for $S.comb;
+    say "\ndone";
+}