FizzBuzz using lazy seqs in Clojure.

fizzbuzz.clj

(ns clj-fizzbuzz.core
  (:gen-class))

(defn hitword
  [word n]
  (cycle (cons word (repeat (dec n) nil))))

(defn fizzbuzz
  [x]
  (let [fizzes (hitword "Fizz" 3)
        buzzes (hitword "Buzz" 5)]
    (doseq [n (range 1 x)]
      (println
       (or
        (not-empty (str
                    (nth fizzes n)
                    (nth buzzes n)))
        (str n))))))

(defn -main
  [& args]
  (fizzbuzz 100))