FizzBuzz.clj

(defn fizzbuzz [n]
  (cond (zero? (rem n 15)) "FizzBuzz"
        (zero? (rem n 5))  "Buzz"
        (zero? (rem n 3))  "Fizz"
        :else n))

(def fizzbuzz-seq 
  (for [x (iterate inc 1)]
    (fizzbuzz x)))

(defn main []
  (doseq [x (take 100 fizzbuzz-seq)]
    (println x)))