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 |
(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}} |
||