fizzbuzz.clj

(ns com.tomojack.fizzbuzz
  (:use [clojure.contrib.str-utils :only (str-join)]))

(defmacro deffizzer [name fizzmap]
  `(defn ~name [~'n]
     (let [~'s (str ~@(for [[modulo string] (sort fizzmap)]
                        `(when (zero? (mod ~'n ~modulo)) ~string)))]
       (if (empty? ~'s) ~'n ~'s))))

(defn do-fizzer [fizzer]
  (println (str-join \newline
                     (map fizzer (range 1 101)))))

(deffizzer fizzbuzz
   {3 "Fizz"
    5 "Buzz"})

(defn do-fizzbuzz []
  (do-fizzer fizzbuzz))