Extensable and functional fizz-buzz in Clojure

fizzbuzz.clj

(comment
  Here is FizzBuzz written by a
  first-day clojure bro)

(defn divisible-by [by-num]
  (fn [num]
    (= 0 (rem num by-num))))


(def tests-and-outputs
  (list
   [(divisible-by 3) "Fizz"]
   [(divisible-by 5) "Buzz"]
   ;; [(divisible-by 7) "Burp"]
   ))

(defn noise-string [num]
  (->> tests-and-outputs
       (filter #((first %) num))
       (map last)
       (reduce str "")))

(defn str-for-num [num]
    (if (= (noise-string num) "")
      (str num)
      (noise-string num)))

(defn fizz-buzz [limit]
  (let [nums (range 1 (+ limit 1))]
    (->> nums
         (map #(str (str-for-num %) "\n"))
         (reduce str))))


(defn -main [& args]
  (print (fizz-buzz 100)))