fizzbuzz.clj

;; without numbers
(def fizzbuzz
  (let [fizz (cycle [nil nil "fizz"])
        buzz (cycle [nil nil nil nil "buzz"])]
    (remove empty? (map str fizz buzz))))

;; with numbers
(defn fizzbuzz
  [n]
  (let [xs (range 1 (inc n))
        fizz (cycle [nil nil "fizz"])
        buzz (cycle [nil nil nil nil "buzz"])]
    (map (fn [x s1 s2]
           (if (or s1 s2)
             (str s1 s2)
             x))
         xs fizz buzz)))