Clojure Brave & Wild task 6

(defn add-missing-parts
        [num-of-repetitions parts]
        (reduce (fn [final-body part]
                  (loop [parts #{}
                         part-number 0]
                    (if (< part-number num-of-repetitions)
                      (recur (conj parts
                                   {:name (clojure.string/replace (:name part) #"1$" (str (inc part-number)))
                                    :size (:size part)})
                             (inc part-number))
                      (into final-body parts))))
                [] parts))