6 lines
140 B
Text
6 lines
140 B
Text
(defun transpose
|
|
((`(() . ,_))
|
|
'())
|
|
((matrix)
|
|
(cons (lists:map #'car/1 matrix)
|
|
(transpose (lists:map #'cdr/1 matrix)))))
|