Matrix transposition: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 1,664: | Line 1,664: | ||
(4 6 9) |
(4 6 9) |
||
(5 9 9)) |
(5 9 9)) |
||
</pre> |
|||
Implementation using seq library: |
|||
<syntaxhighlight lang="lisp"> |
|||
(defun matrix-transposition (m) |
|||
(apply #'seq-mapn (append (list #'list) m)) ) |
|||
(let ((m '(( 2 0 -5 -1) |
|||
(-3 -2 -4 7) |
|||
(-1 -3 0 -6)))) |
|||
(message "%s" (matrix-transposition m)) ) |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
((2 -3 -1) (0 -2 -3) (-5 -4 0) (-1 7 -6)) |
|||
</pre> |
</pre> |
||