在Common Lisp中转置列表

Question

我想转置列表的列表;我的评论表明了思维过程。

(setq thingie '((1 2 3) (4 5 6) (7 8 9))) ;;test case 

(defun trans (mat) 
    (if (car mat) 
    (let ((top (mapcar 'car mat)) ;;slice the first row off as a list 
      (bottom (mapcar 'cdr mat))) ;;take the rest of the rows 
     (cons top (trans bottom)))) ;;cons the first-row-list with the next-row-list 
    mat) 

(trans thingie) 
=> ((1 2 3) (4 5 6) (7 8 9))   ;;wait what? 

但是，我真的希望它是

((1 4 7) (2 5 8) (3 6 9)) 

我在做什么错？

Answer 1

有这个一个简单的方法：

(defun rotate (list-of-lists) 
    (apply #'mapcar #'list list-of-lists)) 

你尝试总是返回原来的mat。修复缩进，并且您看到从if表单返回的值总是被丢弃。

编辑：这是如何工作：

• List接受任何数量的参数，并使得它的一个列表。它的功能定义可想而知大约是这样的：

  (defun list (&rest arguments) 
      arguments) ; exploit the automatic &rest construction 
  

• Mapcar接受一个函数和任意数量的名单，然后让创造的价值的 新名单与那些 一个元素总是调用该函数名单。示例：(mapcar #'foo '((A B) (C D)))将构造一个新列表，其中第一个元素是 结果(foo 'A 'C)，第二个结果是(foo 'B 'D)。

• Apply需要一个可扩展参数列表标志作为其最后的 参数。这意味着如果你给它一个列表作为它的最后一个参数 ，那么这个列表可以被“扩展”来产生函数的单个参数 。例如：(apply #'+ '(1 2 3))与(+ 1 2 3)具有相同的 效果。

现在，您可以展开行：

(apply #'mapcar #'list '((A B) (C D))) 

=>

(mapcar #'list '(A B) '(C D)) 

=>

(list (list 'A 'C) (list 'B 'D)) 

=>

'((A C) (B D))