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

Question

我是Clojure interoping的Java API要求我傳遞一個2d的雙精度數組; 雙[][]。 如何在Clojure中創建一個原始的二維雙數組？ 我正在尋找這樣的東西

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

此函數的Java返回類型為double [] []。

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