指導與計劃

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