June 2018 Update

Task/FizzBuzz/Clojure/fizzbuzz-6.clj

@@ -1,6 +1,13 @@
-(map (fn [n]
-       (if-let [fb (seq (concat (when (zero? (mod n 3)) "Fizz")
-                                (when (zero? (mod n 5)) "Buzz")))]
-           (apply str fb)
-           n))
-     (range 1 101))
+(defn fizz-buzz
+  ([] (fizz-buzz (range 1 101)))
+  ([lst]
+     (letfn [(fizz? [n] (zero? (mod n 3)))
+	     (buzz? [n] (zero? (mod n 5)))]
+       (let [f     "Fizz"
+	     b     "Buzz"
+	     items (map (fn [n]
+			  (cond (and (fizz? n) (buzz? n)) (str f b)
+				(fizz? n) f
+				(buzz? n) b
+				:else n))
+			lst)] items))))