Matrix transposition: Difference between revisions

Content added Content deleted
(Emacs Lisp: Use cl-lib)
Line 1,596: Line 1,596:


=={{header|Emacs Lisp}}==
=={{header|Emacs Lisp}}==

<lang lisp>
{{libheader|cl-lib}}

<lang lisp>(require 'cl-lib)

(defun transpose (m)
(defun transpose (m)
(apply #'mapcar* #'list m))
(apply #'cl-mapcar #'list m))


;;test for transposition function
;;test for transposition function
(transpose '((2 3 4 5) (3 5 6 9) (9 9 9 9)))
(transpose '((2 3 4 5) (3 5 6 9) (9 9 9 9)))</lang>
</lang>


{{out}}
{{out}}