Fizzbuzz Without if, when, and, or, or predicates.

fizzbuzz.clj

(ns conditionless-fizzbuzz.core)

(defn if-divisible-by-n
  [n then-fn else-fn]
  (fn [x]
    (let [remainder (mod x n)
          chosen-fn ({0 then-fn} remainder else-fn)]
      (chosen-fn x))))

(def fizzbuzzer
  (if-divisible-by-n
    3
    (fn [x] (str "fizz" ((if-divisible-by-n 5 (constantly "buzz") (constantly nil)) x)))
    (if-divisible-by-n 5 (constantly "buzz") identity)))

(doseq [fizzbuzz (map (comp str fizzbuzzer) (range 100))]
  (println fizzbuzz))