Performance Problem with Clojure Array
This piece of code is very slow. Execution from the slime-repl on my netbook takes a couple 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)) Conversely, this code runs really fast: (def max-one (apply max (map (fn [w] (apply max (map #(fir...