transpozycja macierzy w clojure

Question

W clojure możliwe przedstawienie macierzy jest wektorem wektorów, tj. [[1 2] [3 4]]. Ewentualna realizacja transpozycję macierzy byłoby:

(defn transpose [matrix] 
    (loop [matrix matrix, transp [], i 0] 
    (if (< i (count (nth matrix 0))) 
     (recur matrix 
      (conj transp 
        (vec (reduce concat 
           (map #(conj [] (nth %1 i)) 
            matrix)))) 
      (inc i)) 
     transp))) 

ktoś może myśleć o bardziej idiomatycznych do realizacji Clojure? na przykład, aby uniknąć powtórki tej straszliwej pętli?

Answer 1

Typowym rozwiązaniem jest

(defn transpose [m] 
    (apply mapv vector m)) 

Answer 2

Począwszy od 2014 roku, polecam korzystania core.matrix do wszelkich prac numerycznej w Clojure.

Między innymi ten zapewnia implementacje wszystkich najczęstszych operacji macierzowych:

(use 'clojure.core.matrix) 

(transpose [[1 2] [3 4]]) 
=> [[1 3] [2 4]]