June 2018 Update

Task/FizzBuzz/Clojure/fizzbuzz-5.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)))