From 81d3148f1c3dc0d85d25fcdb6c5d329f27ca3193 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 25 Jan 2021 09:43:15 +0100
Subject: Task 1 deon

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

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