Clojure: Raindrops: Improve solution

Avoids logic repetition.

1 files changed, 8 insertions, 12 deletions

diff --git a/clojure/raindrops/src/raindrops.clj b/clojure/raindrops/src/raindrops.clj
index 8815f2d..fda3fef 100644
--- a/clojure/raindrops/src/raindrops.clj
+++ b/clojure/raindrops/src/raindrops.clj
@@ -1,15 +1,11 @@
 (ns raindrops)
 
 (defn convert [number]
-  (def drops "")
-
-  (if (== (mod number 3) 0)
-    (def drops (str drops "Pling")))
-  (if (== (mod number 5) 0)
-    (def drops (str drops "Plang")))
-  (if (== (mod number 7) 0)
-    (def drops (str drops "Plong")))
-
-  (if (= drops "")
-    (def drops (str number)))
-  drops)
+  (let [drops (apply str
+                     (map (fn [factor string]
+                            (if (== (mod number factor) 0)
+                              string nil))
+                          [3 5 7]
+                          ["Pling" "Plang" "Plong"]))]
+    (if (= drops "")
+      (str number) drops)))