Just another update

Task/FizzBuzz/Clojure/fizzbuzz-1.clj

@@ -1,5 +1,9 @@
-(map (fn [x] (cond (zero? (mod x 15)) "FizzBuzz"
-                   (zero? (mod x 5)) "Buzz"
-                   (zero? (mod x 3)) "Fizz"
-		     :else x))
-     (range 1 101))
+(defn fizzbuzz [start finish] (map (fn [n]
+	(cond
+		(zero? (mod n 3)) "Fizz"
+		(zero? (mod n 5)) "Buzz"
+		(zero? (mod n 15)) "FizzBuzz"
+		:else n))
+	(range start finish))
+)
+(fizzbuzz 1 100)

Task/FizzBuzz/Clojure/fizzbuzz-2.clj

@@ -1 +1,5 @@
-(map #(let [s (str (if (zero? (mod % 3)) "Fizz") (if (zero? (mod % 5)) "Buzz"))] (if (empty? s) % s)) (range 1 101))
+(map (fn [x] (cond (zero? (mod x 15)) "FizzBuzz"
+                   (zero? (mod x 5)) "Buzz"
+                   (zero? (mod x 3)) "Fizz"
+		     :else x))
+     (range 1 101))

Task/FizzBuzz/Clojure/fizzbuzz-3.clj

@@ -1,6 +1 @@
-(def fizzbuzz (map
-  #(cond (zero? (mod % 15)) "FizzBuzz"
-         (zero? (mod % 5)) "Buzz"
-         (zero? (mod % 3)) "Fizz"
-               :else %)
-  (iterate inc 1)))
+(map #(let [s (str (if (zero? (mod % 3)) "Fizz") (if (zero? (mod % 5)) "Buzz"))] (if (empty? s) % s)) (range 1 101))

Task/FizzBuzz/Clojure/fizzbuzz-4.clj

@@ -1,13 +1,6 @@
-(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))))
+(def fizzbuzz (map
+  #(cond (zero? (mod % 15)) "FizzBuzz"
+         (zero? (mod % 5)) "Buzz"
+         (zero? (mod % 3)) "Fizz"
+               :else %)
+  (iterate inc 1)))

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))))

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))

Task/FizzBuzz/Clojure/fizzbuzz-7.clj

@@ -0,0 +1,4 @@
+(take 100 (map #(let [s (str %2 %3) ] (if (seq s) s (inc %)) )
+            (range)
+            (cycle [ "" "" "Fizz" ])
+            (cycle [ "" "" "" "" "Buzz" ])))

Task/FizzBuzz/Clojure/fizzbuzz-8.clj

@@ -0,0 +1 @@
+(map #(nth (conj (cycle [% % "Fizz" % "Buzz" "Fizz" % % % "Buzz" % "Fizz" % % "FizzBuzz"]) %) %) (range 1 101))