Lazy Functional FizzBuzz in Clojure

fizzbuzz.clj

(ns fizzbuzz.core)

(defn str-max [a b]
  (if (<= (compare a b) 0) b a))

(def fizzes (cycle ["" "" "fizz"]))
(def buzzes (cycle ["" "" "" "" "buzz"]))
(def numbers (sequence (comp (map inc) (map str)) (range)))


(def pattern (map str fizzes buzzes))

(def fizzbuzz (map str-max numbers pattern))

(doseq [x (take 100 fizzbuzz)] (println x))