Jak utworzyć prymitywną dwuwymiarową (2d) tablicę podwójną w Clojure?

Question

Interfejs Java API, z którym współpracuję w Clojure, wymaga, aby przekazać mu tablicę podwójną; podwójnie[][]. Jak utworzyć dwudźwiękowy zestaw dublu w Clojure? Szukam coś takiego

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

Ta funkcja miałaby typ zwracany Java double [] [].

Answer 1

Spróbuj tego:

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

Answer 2

Spróbuj tego:

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