fzbz.hy

;; hy-lang fizzbuzz

(import [itertools [count imap]])
(import [pprint [pprint]])

(defn freq [v n]
  (->> (* [""] (dec n)) (+ [v])))

(defn fizzbuzz []
  (->> (imap (fn [f b n] (or (+ f b) n))
             (cycle (freq "fizz" 3))
             (cycle (freq "buzz" 5))
             (count))
       (drop 1)))

(pprint (->> (fizzbuzz) (take 100) list))