Anonymous user
Matrix transposition: Difference between revisions
m
→{{header|Common Lisp}}: cleanup
m (→{{header|Common Lisp}}: -blank line) |
m (→{{header|Common Lisp}}: cleanup) |
||
Line 643:
<lang lisp>;; Transpose a mxn matrix A to a nxm matrix B=A'.
(defun mtp (A)
(let* ((m
(n
(B (make-array `(,n ,m) :initial-element 0)))
(loop for i from 0
(loop for j from 0
(setf (aref B j i)
(aref A i j))))
| |||