Clojure数组的性能问题

这段代码是 非常 慢。从我上网本上的slime repl执行需要几分钟。

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

相反,此代码运行速度非常快:

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

这与分块序列有关吗?我的第一个例子写错了吗?