fizzbuzz.clj

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

(defn series [arg] (take arg (range)))

(defn fizzbuzz [arg]
  (cond
    (and (= 0 (mod arg 3)) (= 0 (mod arg 5))) "fizzbuzz"
    (= 0 (mod arg 3)) "fizz"
    (= 0 (mod arg 5)) "buzz"
    :else arg))

(defn parse-int [s]
  (Integer. (re-find #"[0-9]*" s)))

(defn fizzseries [s]
  (map fizzbuzz (series s)))

(defn -main
  "I don't do a whole lot ... yet."
  [& args]
  (let [input (read-line)]
    (map print (fizzseries (parse-int input)))))