эффективный способ инициализации большого вектора в clojure

Question

Vector-of in clojure - это способ выполнения операций, поскольку внутренние значения распаковываются. Я могу создать такой массив:

(time (count (apply vector-of :double (repeat 100000 0)))); 
; "Elapsed time: 1703.597 msecs" 

Но это очень медленно. Есть ли более быстрый способ (должен быть)? Примечание: преассоляция вектора важна для связывания, так как ассоциатор будет генерировать ошибку вне пределов, если он пытается установить элемент за пределы длины вектора.

Edit:

Это имеет решение сейчас (см ответ). Леон Грапентин опубликовал это как ошибку на github here.

Answer 1

Запустите код OP, чтобы получить базовое время на моей машине. (Mac Pro 2009 2,66 ГГц Quad-Core Intel Xeon, 48 GB RAM. Clojure 1.6.0. Java 1.8.0_40 Java HotSpot (TM) 64-разрядного сервера VM.)

user> (time (count (apply vector-of :double (repeat 100000 0)))) 
"Elapsed time: 992.688709 msecs" 
100000 

Попробуйте (repeat 100000 0.0) долго устранить в двойное преобразование. Не так много изменений.

user> (time (count (apply vector-of :double (repeat 100000 0.0)))) 
"Elapsed time: 965.876047 msecs" 
100000 

Создание вектора, а затем добавить элементы, намного быстрее:

user> (time (count (into (vector-of :double) (repeat 100000 0.0)))) 
"Elapsed time: 52.856371 msecs" 
100000 

Несколько быстрее, не строят ленивую последовательность:

(defn n-conj [n coll elem] 
    (if (zero? n) 
    coll 
    (recur (dec n) (conj coll elem) elem))) 

(time (count (n-conj 100000 (vector-of :double) 0.0))) 
"Elapsed time: 37.86183 msecs" 
100000