클로저 내의 행렬 전치

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

일반적인 솔루션은 내가 Clojure의 어떤 수치 일을 core.matrix를 사용하는 것이 좋습니다 것, 2014 년

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

Answer 2

입니다.

무엇보다도

,이 모든 가장 일반적인 행렬 연산의 구현을 제공합니다 : 당신은 주문 술사에 대해 알아

(use 'clojure.core.matrix) 

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