Vấn đề về hiệu suất với Clojure Array

Question

Đoạn mã này là rất chậm. Thực hiện từ slime-repl trên netbook của tôi mất một vài phút.

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

Ngược lại, mã này chạy rất nhanh:

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

Điều này có cái gì để làm với chuỗi chunked? Ví dụ đầu tiên của tôi có được viết sai không?

Answer 1

Bạn đang đánh phản chiếu Java. bài viết trên blog này có một cách giải quyết:

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

Answer 2

Bạn có thể có được hiệu suất tốt hơn từ một trong bốn triển khai ma trận Clojure có sẵn thông qua một giao diện duy nhất core.matrix: at clojars, at github.