fizzbuzz.clj

(ns fizzbuzz.core)

(defn fizzbuzz
  [end]
  (map
   #(cond
     (= (mod % 15) 0) "FizzBuzz"
     (= (mod % 5) 0) "Buzz"
     (= (mod % 3) 0) "Fizz"
     :else (str %)) (range 1 end)))

(defn -main []
  (println (fizzbuzz 100)))