Scheme union兩個列表

Question

我正在編寫一個方案程序，它需要兩個列表並顯示列表的聯合。這是我的代碼。

(define (union a b) 
    (cond ((null? b) a) 
     ((element? (car b) a) 
     (union a (cdr b))) 
     (else (union (cons (car b) a) (cdr b))))) 

當我去使用(union '(1 2 3) '(2 4 2))調用的方法，我得到讀取

Exception: variable element? is not bound. 

錯誤我在做什麼錯了，當我調用該方法？謝謝。

Answer 1

它只是意味着該定義「元素？」未找到。與「會員」（球拍內置功能）替換它使得它的工作：

(define (union a b) 
    (cond ((null? b) a) 
     ((member (car b) a) 
     (union a (cdr b))) 
     (else (union (cons (car b) a) (cdr b))))) 

(union '(1 2 3) '(2 4 2)) 

輸出：

'(4 1 2 3)