Clojure: dlaczego aget jest tak wolny?
W moim mniemaniu wektory clojure mają niewielki wpływ na wydajność w porównaniu z tablicami java. W rezultacie pomyślałem, że „konwencjonalna mądrość” polegała na tym, że dla tych krytycznych dla wydajności części kodu lepiej byłoby używać tablic java.
Moje testy sugerują jednak, że to nieprawda:
<code>Clojure 1.3.0 user=> (def x (vec (range 100000))) #'user/x user=> (def xa (int-array x)) #'user/xa user=> (time (loop [i 0 s 0] (if (< i 100000) (recur (inc i) (+ s (nth x i))) s))) "Elapsed time: 16.551 msecs" 4999950000 user=> (time (loop [i 0 s 0] (if (< i 100000) (recur (inc i) (+ s (aget xa i))) s))) "Elapsed time: 1271.804 msecs" 4999950000 </code>
Jak widać, aget dodaje około 800% czasu do tego dodatku. Obie metody są jednak wciąż wolniejsze niż natywna Java:
<code>public class Test { public static void main (String[] args) { int[] x = new int[100000]; for (int i=0;i<100000;i++) { x[i]=i; } long s=0; long end, start = System.nanoTime(); for (int i=0;i<100000;i++) { s+= x[i]; } end = System.nanoTime(); System.out.println((end-start)/1000000.0+" ms"); System.out.println(s); } } > java Test 1.884 ms 4999950000 </code>
Czy powinienem wyciągnąć wniosek, że aget jest 80 razy wolniejszy niż n-ty i około 800 razy wolniejszy niż [] -dostęp w java?