如何在Clojure中創建一個原始的二維（2d）雙打數組？

Question

我是Clojure的一個Java API，需要我將它傳遞給一個2d的雙精度數組;雙[][]。我如何創建一個基元二維Clojure數組？我期待這樣的事情

(double-array-2d [[1 2] [3 4]])

此功能將有雙重[] []一個Java返回類型。

Answer 1

試試這個：

(into-array (map double-array [[1 2] [3 4]])) 

Answer 2

試試這個：

(defn double-array-2d [coll] 
    (let [w (count coll) 
     h (apply max (map count coll)) 
     arr (make-array Double/TYPE w h)] 
    (doseq [x (range w) 
      y (range h)] 
     (aset arr x y (double (get-in coll [x y])))) 
    arr))