Clojure: ¿por qué aget es tan lento?

En mi opinión, los vectores de clojure tienen un leve impacto en el rendimiento en comparación con los arreglos java. Como resultado, pensé que la "sabiduría convencional" era que, para esas partes críticas del rendimiento de su código, sería mejor utilizar matrices de Java.

Sin embargo, mis pruebas sugieren que esto no es cierto:

<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>

Como puede ver, el aget agrega aproximadamente un 800% de tiempo a esta adición. Sin embargo, ambos métodos son mucho más lentos que el java nativo:

<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>

Entonces, ¿mi conclusión debería ser que aget es 80 veces más lenta que la nth, y aproximadamente 800 veces más lenta que el acceso de [] en java?

Respuestas a la pregunta(3)

Su respuesta a la pregunta