clojureでfizzbuzz.clj

(ns org.program.main)

(defn fizzbuzz [v curr n]
 (if (= curr n)
  (conj v "end...")
  (if (= 0 (mod curr 15))
   (fizzbuzz (conj v "fizzbuzz,") (inc curr) n)
   (if (= 0 (mod curr 5))
    (fizzbuzz (conj v "buzz,") (inc curr) n)
    (if (= 0 (mod curr 3))
     (fizzbuzz (conj v "fizz,") (inc curr) n)
     (fizzbuzz (conj v (format "%s," curr)) (inc curr) n))))))

(defn -main [n]
 (fizzbuzz [] 1 n))