LISP递归配对？

Question

我是 LISP 的新手，我正在尝试创建一个将列表中的元素配对的递归函数。我在函数的最后一部分添加了递归。

(defun pairup (L)
(cond((null L) nil))
(list (cons (car L) (cadr L)(pairup(cdr L)))))

我知道 (pairup(cdr L)))))) 会显示错误，因为它的第三个参数进入 cons。不确定如何再次添加函数 =/

输入：(pairup'(1 2 3 4))

输出：((1 2) (3 4))

Answer 1

函数如下：

(defun pairup (l)
  (cond ((null l) nil)
        ((null (cdr l)) (list l))   
        (t (cons (list (car l) (cadr l))
                 (pairup (cddr l))))))

(pairup '(1 2 3 4))   ;  produces ((1 2) (3 4))
(pairup '(1 2 3))     ;  produces ((1 2) (3))

注意cond的第二个分支是当只剩下一个元素时终止递归，如果初始列表有奇数个元素，这是必要的。 cond 的语法要求分支的第一个形式始终是一个条件，在最后一个分支中，条件是 t 以捕获所有其他情况。

LISP递归配对？

LISP recursive pairing?

lisp

common-lisp