Clojure vec vs list pop performance test

perf_test.clj

;; Determine the relative performance of turning a vector into a list
;; and popping items off the list versus just using the vector.
;; The list approach is asymptotically faster, but the idea is to determine
;; at what point the overhead of creating a new list is worth it.

(defn time-list [n]
  (let [init-vec (mapv (constantly 1)
                       (range n))]
    (time (loop [l (into  () init-vec)]
                 (let [r (rest l)
                       f (first r)]
                   (when f (recur r)))))))

(defn time-vec [n]
  (let [init-vec (mapv (constantly 1)
                       (range n))]
    (time (loop [l init-vec]
            (let [r (rest l)
                  f (first r)]
              (when f (recur r)))))))