方案匹配元素

Question

我目前正在玩一些計劃，我一直在試圖弄清楚如何實施一個測試，它檢查'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)]))) 

Answer 2

用數學術語來說，你要檢查兩個列表/集合的交集是否非空。如果你有一個SRFI-1庫，這是微不足道的：

(not (null? (lset-intersection l xs))) 

SRFI-1的實現可以在SLIB找到。

（免責聲明：我以前SLIB貢獻者。）