lisp - 从其他列表中删除列表

Question

我有包含其他列表的列表(仅限 2 级)

((S U S U R) (S U S R) (S U R))

如何从包含一些对的列表中删除列表，列表中第一个和第二个位置或第 3 个和第 4 个位置(在我的示例中为“S U”)上的 2 个元素的相同组合并返回 ((S U S R ) (S U R))

我要转型

((S U S U R) (S U S R) (S U R)) 到 => ((S U S R) (S U R))

((S U R S U) (S U S R) (S U R)) 到 => ((S U R S U) (S U S R) (S U R)) - 不要改变，因为这里是对有 S U, R S, U 和没有 S U 2 次或更多次

Answer 1

REMOVE-IF

(remove-if #'oddp '(1 2 3 4 5))
=> (2 4)

LAMBDA

(funcall (lambda (x) (string x)) :example)
=> "EXAMPLE"

EQUALP

(equalp '(S U) (list 's 'u))
=> T

SUBSEQ

(subseq '(a b c d) 0 3)
=> (A B C)

小心:

(subseq '(a b c d) 0 10)
=> ERROR

您还可以使用 LENGTH获取列表的大小。您还可以使用以下功能...

NTHCDR

(nthcdr '(s u s u r u) 5)
=> (U)

LDIFF

(let ((list '(a b c d)))
  (ldiff list (nthcdr 10 list)))
=> (A B C D)

(let ((list '(a b c d)))
  (ldiff list (nthcdr 2 list)))
=> (A B)

你想做什么

您想从输入列表中删除满足以下谓词的元素:给定一个列表，该列表的一个子集等于(S U) (见评论).

您的代码将如下所示:

(defun remove-s-u-at-pos-3 (list)
  (remove-if (lambda (...) ...) list))

您需要提取每个访问列表的一部分并将其与(S U) 进行比较。