chuyển vị ma trận trong clojure

Question

Trong clojure, một biểu diễn có thể có của ma trận là một vectơ của vec-tơ, tức là [[1 2] [3 4]]. Một thi thể của transposing một ma trận sẽ là:

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

bất cứ ai có thể nghĩ ra một thành ngữ hơn để thực hiện clojure? ví dụ để tránh lặp lại vòng lặp kinh khủng này?

Answer 1

Giải pháp thông thường là

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

Answer 2

Tính đến năm 2014, tôi sẽ khuyên bạn sử dụng core.matrix cho bất kỳ công việc số trong Clojure.

Trong số những thứ khác, điều này cung cấp việc triển khai của tất cả các hoạt động ma trận phổ biến nhất:

(use 'clojure.core.matrix) 

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