fizzbuzz @ jduchess battle language of march 2012

battle.clj

(ns battle
  (:use [midje.sweet]))

(defn fizzbuzz "Fizzbuzz infinite sequence"
  [] (let [mult? #(zero? (rem % %2))]
      (map #(cond (mult? % 15)  "fizzbuzz" 
                  (mult? % 3)   "fizz"
                  (mult? % 5)   "buzz"
                  :else         %)
           (iterate inc 1))))

(fact
  (take 17 (fizzbuzz)) => [1 2 "fizz" 4 "buzz" "fizz" 7 8 "fizz" "buzz"
                           11 "fizz" 13 14 "fizzbuzz" 16 17 ])