a solution of pwc 096.1 in Raku

1 files changed, 16 insertions, 0 deletions

diff --git a/challenge-096/gugod/raku/ch-1.raku b/challenge-096/gugod/raku/ch-1.raku
new file mode 100644
index 0000000000..b8985dc559
--- /dev/null
+++ b/challenge-096/gugod/raku/ch-1.raku
@@ -0,0 +1,16 @@
+sub MAIN {
+    my @examples = (
+        "The Weekly Challenge",
+        "    Perl and   Raku are  part of the same family  ",
+        "join reverse split \$S",
+    );
+
+    for @examples -> $S {
+        say "Input: $S";
+        say "Output: " ~ reverse-words($S);
+    }
+}
+
+sub reverse-words (Str $S --> Str) {
+    $S.words.reverse.join(" ");
+}