list - 方案匹配元素

Question

我目前正在研究 scheme，我已经被困了很长一段时间试图弄清楚如何实现一个测试，检查 'xs' 中的任何元素是否也存储在 'l' 中.

这就是数学函数'\in'，只针对列表xs中的每个元素。

Answer 1

你是想自己写来练习，还是只需要功能？

如果您只想要功能，请使用 larsmans 的答案(我从未使用过它，但它对我来说看起来不错)。

要实现请尝试以下(免责声明:我没有测试过)

(define has-intersect?
      (lambda (xs l)
           (cond
             [(null? xs) #f]
             [(member? (car xs) l) #t]
             [else (has-intersect? (cdr xs) l)])))