RosettaCodeData/Task/Matrix-transposition/Clojure/matrix-transposition.clj

(defmulti matrix-transpose
  "Switch rows with columns."
  class)

(defmethod matrix-transpose clojure.lang.PersistentList
  [mtx]
  (apply map list mtx))

(defmethod matrix-transpose clojure.lang.PersistentVector
  [mtx]
  (apply mapv vector mtx))
Just another update 2015-02-20 00:35:01 -05:00			`(defmulti matrix-transpose`
			`"Switch rows with columns."`
			`class)`

			`(defmethod matrix-transpose clojure.lang.PersistentList`
			`[mtx]`
			`(apply map list mtx))`

			`(defmethod matrix-transpose clojure.lang.PersistentVector`
			`[mtx]`
2016 Update 2016-12-05 22:15:40 +01:00			`(apply mapv vector mtx))`