Как я могу вычесть произвольные 2 списка в ракетке?

Question

Я хочу определить функцию, которая потребляет 2 списка и делает вычитание в результате другого списка.

Например, когда list1 is '(a a b b c), а list2 равен' (a b), результат вычитания должен быть '(a b c).

Я попытался реализовать его лямбдой и удалить, в итоге создал списки sevral.

Я действительно не знаю, как это сделать.

Answer 1

Вот один из способов:

#lang racket 
(define (subtract xs ys) 
    (if (empty? ys) 
     xs 
     (subtract (remove (first ys) xs) (rest ys)))) 

(subtract '(a a b b c) '(a b))