Solutions to challenge 45 task 1 and 2 in Raku by Noud

2 files changed, 43 insertions, 0 deletions

diff --git a/challenge-045/noud/raku/ch-1.p6 b/challenge-045/noud/raku/ch-1.p6
new file mode 100644
index 0000000000..4881faee96
--- /dev/null
+++ b/challenge-045/noud/raku/ch-1.p6
@@ -0,0 +1,35 @@
+# Square Secret Code
+#
+# The square secret code mechanism first removes any space from the original
+# message. Then it lays down the message in a row of 8 columns. The coded
+# message is then obtained by reading down the columns going left to right.
+#
+# For example, the message is “The quick brown fox jumps over the lazy dog”.
+#
+# Then the message would be laid out as below:
+#
+#   thequick
+#   brownfox
+#   jumpsove
+#   rthelazy
+#   dog
+#
+# The code message would be as below:
+#
+#   tbjrd hruto eomhg qwpe unsl ifoa covz kxey
+#
+# Write a script that accepts a message from command line and prints the
+# equivalent coded message.
+
+sub encode($str) {
+    # Lowercase all letters and remove white spaces.
+    my $stripped = $str.lc.subst(/\s/, '', :g);
+
+    # Extend string to multiple of 8 and rotate around 8.
+    my @r = ($stripped ~ " " x (8 - $stripped.chars % 8)).comb.rotor(8, :partial);
+
+    # Take Cartesian product of the rotated string.
+    return ([Z~] @r).map({ $_.trim }).join(' ');
+}
+
+say encode("The quick brown fox jumps over the lazy dog");
diff --git a/challenge-045/noud/raku/ch-2.p6 b/challenge-045/noud/raku/ch-2.p6
new file mode 100644
index 0000000000..3cfa047774
--- /dev/null
+++ b/challenge-045/noud/raku/ch-2.p6
@@ -0,0 +1,8 @@
+# Source Dumper
+#
+# Write a script that dumps its own source code. For example, say, the script
+# name is ch-2.pl then the following command should returns nothing.
+#
+# $ perl ch-2.pl | diff - ch-2.pl
+
+$?FILE.IO.slurp.trim.say;