KingCode

(defn fizzbuzz 
  ([m1 m2 n]
   (let [ c #(->> % vector (concat (-> %2 dec (repeat nil))) cycle)
         fb-re #"Fizz|Buzz|FizzBuzz"]
     (->> [(c "Fizz" m1), (c "Buzz" m2)]
          (apply map 
                 (fn [i m1 m2]
                   (or (re-matches fb-re (str m1 m2))
                       i))
                 (range 1 (inc n))))))