如何在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))