Как мне создать примитивный двумерный (2d) массив пар в Clojure?

Question

Java API, с которым я сталкиваюсь в Clojure, требует, чтобы я передал ему 2d массив значений типа double; двойной [] []. Как мне создать примитив 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))