fizzbuzz.clj

(defn fizzbuzz [x]
  (cond
    (= (rem x 15) 0) "FizzBuzz"
    (= (rem x 3)  0) "Fizz"
    (= (rem x 5)  0) "Buzz"
    :else (str x)
  )
)
(doseq [p (map fizzbuzz (range 1 100))] (println p))