RosettaCodeData/Task/Matrix-transposition/Common-Lisp/matrix-transposition-1.lisp

3 lines
50 B
Common Lisp

(defun transpose (m)
(apply #'mapcar #'list m))