fizz-buzz.clj

fizz-buzz.clj

;; condition free fizz-buzz solution, based on code from [email protected] to the clojure list
;; uses infinite, lazy-sequences
 
(let [three (cycle [nil nil "fizz"])
      five  (cycle [nil nil nil nil "buzz"])]
  (defn fizz-buzz []
    (map vector (iterate inc 1) three five)))
 
(doseq [tuple (take 30 (fizz-buzz))]
  (println (apply str (interpose " " (filter identity tuple)))))
 
;; or
 
(doseq [tuple (take 30 (fizz-buzz))]
  (println (clojure.string/join " " (filter identity tuple))))