2016 Update

Task/FizzBuzz/Clojure/fizzbuzz-11.clj

@@ -0,0 +1,19 @@
+;;Using clojure maps
+(defn fizzbuzz
+  [n]
+  (let [rule {3 "Fizz"
+              5 "Buzz"}
+        divs (->> rule
+                  (map first)
+                  sort
+                  (filter (comp (partial = 0)
+                                (partial rem n))))]
+    (if (empty? divs)
+      (str n)
+      (->> divs
+           (map rule)
+           (apply str)))))
+
+(defn allfizzbuzz
+  [max]
+  (map fizzbuzz (range 1 (inc max))))

Task/FizzBuzz/Clojure/fizzbuzz-12.clj

@@ -0,0 +1,6 @@
+(take 100
+   (map #(str %1 %2 (if-not (or %1 %2) %3))
+        (cycle [nil nil "Fizz"])
+        (cycle [nil nil nil nil "Buzz"])
+        (rest (range))
+   ))

Task/FizzBuzz/Clojure/fizzbuzz-13.clj

@@ -0,0 +1,18 @@
+(take 100
+  (
+    (fn [& fbspec]
+      (let [
+             fbseq #(->> (repeat nil) (cons %2) (take %1) reverse cycle)
+             strfn #(apply str (if (every? nil? (rest %&)) (first %&)) (rest %&))
+          ]
+        (->>
+          fbspec
+          (partition 2)
+          (map #(apply fbseq %))
+          (apply map strfn (rest (range)))
+          ) ;;endthread
+      ) ;;endlet
+    ) ;;endfn
+    3 "Fizz" 5 "Buzz" 7 "Bazz"
+  ) ;;endfn apply
+) ;;endtake

Task/FizzBuzz/Clojure/fizzbuzz-8.clj

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