Skip to content

Instantly share code, notes, and snippets.

@tolitius

tolitius/n-n-matrix-transpose.clj

Last active November 16, 2017 05:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tolitius/590dc57f4d7154e83699109278880317 to your computer and use it in GitHub Desktop.
Save tolitius/590dc57f4d7154e83699109278880317 to your computer and use it in GitHub Desktop.
Download ZIP
transpose N x N matrices
Raw
n-n-matrix-transpose.clj
=> (defn transpose [m]
(apply mapv vector m))
=> (transpose [[1 2] [3 4]])
[[1 3] [2 4]]
=> (transpose [[1 2 3] [4 5 6] [7 8 9]])
[[1 4 7] [2 5 8] [3 6 9]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment