2010-10-05 14 views

cevap

26

bu deneyin:

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

Teşekkürler @fogus. Bu güzel ve zarif bir çözüm. Kitabınızın tamamlanması için sabırsızlanıyorum. –

+0

Bu mümkün olan en hızlı yol mu? Bu zaten tip ipucu ile ilgileniyor mu? –

+0

Bu 4 yıl önce desteklendi. Hala harika bir cevap. – charleslparker

3

bu deneyin:

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

sayesinde @Brian. Blogunuzu beğendim BTW. –