指导与计划

Question

请帮助我在计划中的代码基本上我需要的是如下 函数（追加）需要一个原子和一个列表，并将元素添加到列表的末尾。

实施例：

(append 'A '(B C D)) -> (B C D A) 

Answer 1

递归的方法是：

(define (append atom lst) 
    (if (empty? lst) 
     (list atom) 
     (cons (car lst) (append atom (cdr lst))))) 

用法：

> (append 'A '(B C D)) 
'(B C D A) 

这相当于

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

Answer 2

您可以添加到列表这样的结尾：

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

Append需要一个list参数作为第一个参数。第二个参数并不一定是一个列表，但它会显示为(B C D . A)如果你(append '(B C D) 'A))

My Example