clojure中的矩陣轉置

Question

在clojure中，矩陣的可能表示是向量的向量，即[[1 2] [3 4]]。 一種可能實現轉置矩陣是：

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

誰能想到一個更地道，以Clojure的實現？例如爲了避免這個可怕的循環重演？

Answer 1

通常的解決辦法是

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

Answer 2

截至2014年，我會建議使用core.matrix在Clojure的任何數值的工作。

除其他事項外，這提供了所有最常見的矩陣運算的實現：

(use 'clojure.core.matrix) 

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