按元素出现删除子列表（方案）

Question

我如何通过仅搜索一个元素来删除子列表。

例如，让我们有一个列表：

( (pacific (atlanta ohaio) (NY LI))
  (atlanta (pacific blue) (ohaio green)) )

我想从列表中删除“pacific”并获得：

( (pacific (atlanta ohaio) (NY LI))
  (atlanta (ohaio green)) )

任何想法都将不胜感激:)。

Answer 1

问题中没有明确说明从输入列表中删除元素的标准。这适用于所示示例：

(define lst
  '((pacific (atlanta ohaio) (NY LI))
    (atlanta (pacific blue) (ohaio green))))

(map (lambda (slst)
       (filter (lambda (e)
                 (not (and (list? e) (member 'pacific e))))
               slst))
     lst)

=> '((pacific (atlanta ohaio) (NY LI)) (atlanta (ohaio green)))

如有必要，对于其他输入，您可以调整最内层 lambda 中的条件，直到结果符合要求。例如，我解释了问题中的评论：

我想删除包含搜索词的子列表

As: "在子列表中的任意位置找到搜索到的词";如果搜索到的单词只能在第一个位置找到，则相应地调整条件。