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

3 lines
50 B
Common Lisp
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
(defun transpose (m)
(apply #'mapcar #'list m))