Racket\Scheme比较并删除列表中不需要的项目

我有两份清单：

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

上面列表中的项目只是一个示例，但无论如何它都将是一个字符串项目。我需要做的是比较这两个列表并删除列表1中列表2中的项目

我能做一个简短的地图程序吗

这不是什么家庭作业项目，我希望这里有一门编程课程：/

#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")

还有

例如：

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

(displayln (remove* list2 list1))

印刷品：

(xx1 xx3)

---

以下Racket语言的编程类可能重复：。麻省理工学院开放式课程中魔术师的方案标准和a（R4RS，但主要与当今的方案和

#！racket

。有一个）