a solution to pwc 096.1 in janet

1 files changed, 15 insertions, 0 deletions

diff --git a/challenge-096/gugod/janet/ch-1.janet b/challenge-096/gugod/janet/ch-1.janet
new file mode 100644
index 0000000000..f3d0e18544
--- /dev/null
+++ b/challenge-096/gugod/janet/ch-1.janet
@@ -0,0 +1,15 @@
+
+(defn reverse-words
+  "Reverse the string word by word"
+  [S]
+  (string/join (reverse (filter (fn [x] (not (= x "")))
+                        (string/split " " S)))
+               " "))
+
+# main
+(loop [x :in @["The Weekly Challenge"
+               "    Perl and   Raku are  part of the same family  "
+               "join reverse split $S"]]
+  (print (string
+        "Input: " x "\n"
+        "Output: " (reverse-words x))))