Anonymous user
Matrix transposition: Difference between revisions
→{{header|Emacs Lisp}}
Line 1,078:
<lang lisp>
(defun transpose (m)
(apply #'mapcar* #'list m))
;;test for transposition function
(transpose '((2 3 4 5) (3 5 6 9) (9 9 9 9)))
</lang>
{{out}}
| |||