fizzbuzzalternative4.clj

(defn fizz-buzz [coll] 
  (clojure.string/join
   \space
   (map #(let [s (str %2 %3) ] 
           (if (seq s) 
             s 
             (str %)))
        coll
        (cycle [ "" "" "Fizz" ])
        (cycle [ "" "" "" "" "Buzz" ]))))