क्लोजर में मैट्रिक्स ट्रांसपोजिशन

Question

क्लोजर में मैट्रिक्स का संभावित प्रतिनिधित्व वैक्टर का वेक्टर है, यानी [[1 2] [3 4]]। एक मैट्रिक्स transposing का एक संभावित कार्यान्वयन होगा:

(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 की स्थिति के अनुसार है, मैं Clojure में किसी भी काम के लिए संख्यात्मक core.matrix का उपयोग कर की सिफारिश करेंगे।

अन्य बातों के अलावा, यह सब सबसे आम मैट्रिक्स आपरेशन के कार्यान्वयन प्रदान करता है:

(use 'clojure.core.matrix) 

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