June 2018 Update

Task/FizzBuzz/Clojure/fizzbuzz-13.clj

@@ -1,18 +1,6 @@
 (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
+   (map #(str %1 %2 (if-not (or %1 %2) %3))
+        (cycle [nil nil "Fizz"])
+        (cycle [nil nil nil nil "Buzz"])
+        (rest (range))
+   ))