Solve Cryptotext in clojure

deniscostadsc · Nov 26, 2024 · 3bd5515 · 3bd5515
1 parent 9fc30d8
commit 3bd5515
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/solutions/beecrowd/2866/2866.clj b/solutions/beecrowd/2866/2866.clj
@@ -0,0 +1,16 @@
+(ns main
+  (:require [clojure.string :as str]))
+
+(defn filter-uppercase-letter [string]
+  (apply str (filter #(Character/isLowerCase %) string)))
+
+(defn main []
+  (loop [index (Integer/parseInt (read-line))]
+    (when (> index 0)
+      (-> (read-line)
+          (filter-uppercase-letter)
+          (str/reverse)
+          (println))
+      (recur (dec index)))))
+
+(main)