でのマトリックス転位

Question

行列の可能な表現は、ベクトルのベクトル、すなわち[[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

通常のソリューションは、2014年のよう

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

Answer 2

ですが、私はClojureの中の任意の数値仕事のためcore.matrixを使用することをお勧めします。とりわけ

、これはすべての最も一般的な行列演算の実装を提供します。

(use 'clojure.core.matrix) 

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