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-6.clj
+++ b/Task/FizzBuzz/Clojure/fizzbuzz-6.clj
@ -1,4 +1,6 @@
-(take 100 (map #(let [s (str %2 %3) ] (if (seq s) s (inc %)) )
-            (range)
-            (cycle [ "" "" "Fizz" ])
-            (cycle [ "" "" "" "" "Buzz" ])))
+(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))