Anonymous user
Matrix transposition: Difference between revisions
m
→{{header|Common Lisp}}: -blank line
m (→{{header|Common Lisp}}: -blank line) |
|||
Line 641:
If the matrix A is given as a 2D array:
<lang lisp>;; Transpose a mxn matrix A to a nxm matrix B=A'.▼
▲;; Transpose a mxn matrix A to a nxm matrix B=A'.
(defun mtp (A)
(let* ((m (car (array-dimensions A)))
| |||