刪除列表與列表

Question

我知道如何刪除元素時有列表和變量，但有沒有辦法從列表中刪除元素使用另一個列表？實施例：（列表1 2 3 4 5）（表1 2 3）的產率（表4 5）

Answer 1

這是一樣具有可變的，但需要使用成員函數，而不是等於?:

#lang racket 
; remove every element included in rlist from flist 
(define (remove-list rlist flist) 
    (if (empty? flist) 
     '() 
     (let ((c (car flist))) 
     (if (member c rlist) ; <==== 
      (remove-list rlist (cdr flist)) 
      (cons c (remove-list rlist (cdr flist))))))) 

(remove-list (list 1 2 3) (list 1 2 3 4 5)) 
=> '(4 5) 

Answer 2

在球拍這是相當簡單的，只需使用remove*內置程序：

(remove* (list 1 2 3) (list 1 2 3 4 5)) 
=> '(4 5)