RosettaCodeData/Task/Matrix-transposition/Common-Lisp/matrix-transposition-1.lisp
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

2 lines
50 B
Common Lisp

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