gistfile1.clj

(defn vector-map-transient 
  "A version of map that only works on vectors"
  [f v]
  (loop [i 0 out (transient []) n (count v)]
    (if (<= n i)
      (persistent! out)
      (recur (inc i) (conj! out (f (v i))) n))))