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:
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
Jak widać, aget dodaje około 800% czasu do tego dodatku. Obie metody są jednak wciąż wolniejsze niż natywna Java:
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
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?