¿Cómo creo una matriz de dobles primordial bidimensional (2d) en Clojure?

Question

Una API de Java Yo soy Clojure interoperando con requiere que le pase una serie 2d de dobles; doble[][]. ¿Cómo creo un primitivo 2d matriz de dobles en Clojure? Busco algo como esto

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

Esta función tendría un tipo de retorno de Java de doble [] [].

Answer 1

Prueba esto:

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

Answer 2

Prueba esto:

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