1 2 3 4
(defun transpose (m) (unless (null (car m)) (cons (mapcar #'car m) (transpose (mapcar #'cdr m))))) ...
Lisp On matrix transpose
by mdengler,
October 06, 2007 04:31
1 2 3 4
(defun transpose (m) (unless (null (car m)) (cons (mapcar #'car m) (transpose (mapcar #'cdr m))))) ...
Style, and also didn't you ...