timsgardner · April 12, 2016 17:29
diff --git a/vector_insert.clj b/vector_insert.clj
 (defn vector-insert [v1 v2 i]
  (let [c1 (count v1)
        c2 (count v2)
        c3 (+ c1 c2)]
    (persistent!
      (loop [j i, v3 (transient v1)]
        (cond
          (< j (+ i c2))
          (recur
            (inc j)
            (assoc! v3 j (get v2 (- j i))))

          (< j c3)
          (recur
            (inc j)
            (assoc! v3 j (get v1 (- j c2))))

          :else v3)))))
	(defn vector-insert [v1 v2 i]
	(let [c1 (count v1)
	c2 (count v2)
	c3 (+ c1 c2)]
	(persistent!
	(loop [j i, v3 (transient v1)]
	(cond
	(< j (+ i c2))
	(recur
	(inc j)
	(assoc! v3 j (get v2 (- j i))))

	(< j c3)
	(recur
	(inc j)
	(assoc! v3 j (get v1 (- j c2))))

	:else v3)))))