Ракетка \ Схема сравнения и удалить ненужные элементы в списке

Question

У меня есть 2 списка:

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

элементы в списке выше, являются всего лишь пример, но в любом случае это будет строка элемента. Мне нужно сравнить оба списка и удалить элементы в списке1, которые находятся в списке2.

есть ли короткая программа, которую я могу сделать?

это не домашнее задание проекта, я хотел бы там был курс здесь для классов программирования, хотя:/

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)