Problème de performance avec Clojure Array

Question

Ce code est très lent. L'exécution du slime-repl sur mon netbook prend quelques minutes.

(def test-array (make-array Integer/TYPE 400 400 3)) 

(doseq [x (range 400), y (range 400), z (range 3)] 
    (aset test-array x y z 0)) 

A l'inverse, ce code fonctionne très vite:

(def max-one (apply max (map (fn [w] (apply max (map #(first %) w))) test-array))) 
(def max-two (apply max (map (fn [w] (apply max (map #(second %) w))) test-array))) 
(def max-three (apply max (map (fn [w] (apply max (map #(last %) w))) test-array))) 

Est-ce que cela a quelque chose à voir avec des séquences chunked? Mon premier exemple vient-il d'être mal écrit?

Answer 1

Vous utilisez la réflexion Java. Ce billet de blog a une solution de contournement:

http://clj-me.cgrand.net/2009/10/15/multidim-arrays/

Answer 2

Vous pourriez obtenir une meilleure performance de l'une des quatre mises en œuvre de la matrice Clojure disponibles via une seule interface core.matrix: at clojars, at github.