球拍\方案比較和刪除不需要的項目列表中的

Question

我有2所列出：

(Define list1 '("xx1" "xx2" xx3" "xx4" "xx5")) 
(Define list2 '("xx2" "xx4" "xx5")) 

在列表中的項目以上是隻是一個例子，但無論哪種方式，這將是一個字符串項。我需要做的是將兩個列表進行比較，並刪除列表1中找到的項目。

有沒有一個簡短的地圖例程，我可以做？

這是不是有些功課項目，我希望能有一個當然這裏編程類，但：/

Answer 1

#lang racket 
(define list1 '("xx1" "xx2" "xx3" "xx4" "xx5")) 
(define list2 '("xx2" "xx4" "xx5")) 

(for/list ([x (in-list list1)] 
      #:unless (member x list2)) 
    x) 

結果：

'("xx1" "xx3") 

Answer 2

還有remove*

一個例子：

#lang racket 
(define list1 '("xx1" "xx2" "xx3" "xx4" "xx5")) 
(define list2 '("xx2" "xx4" "xx5")) 

(displayln (remove* list2 list1)) 

個

打印：

(xx1 xx3)