Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/FizzBuzz/Clojure/fizzbuzz-5.clj
+++ b/Task/FizzBuzz/Clojure/fizzbuzz-5.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))))