删除一对特定项目

Arepo · 发表于 2022-7-6 06:56:44

我需要一些代码从列表中删除2个特定的连续项。
例：从列表（a b c d e f g h）中，我需要删除a和b并获取
'（c d e f g h），但仅当b在a之后。如果a或b是列表中的独立元素，则不应删除它们。
任何帮助都将不胜感激。非常感谢。

BIGAL · 发表于 2022-7-6 07:03:00

使用“第n步”遍历列表查找“a”If，然后获取下一个第n个If b，然后从列表中删除

copy

(setq mylst (list "x" "a" "b" "C" "d"))
(setq numb (length mylst))
(setq x 0)
(repeat numb
(princ (nth x mylst))
(setq x (+ x 1))
)

pBe · 发表于 2022-7-6 07:06:27

不指望重复元素，所以

编辑：如果意图是“配对后列表的其余部分”

copy

(Defun[color="blue"] [b]rem2rest [/b]([/color]e1 e2 lst)
(mapcar '(lambda (x y)
                  (if (and (eq x e1)(eq y e2))
                        (setq lst (cdr (member y[b][b] (member x lst)[/b][/b])))
                        )
   )
                         lst (cdr lst))
 lst
 )

Lee Mac · 发表于 2022-7-6 07:09:20

小心pbe

copy

_$ (rem2 'a 'b '(c b d e a b c))
(D E A B C)

如果我理解了OP，也许：

copy

(defun rem2 ( e1 e2 lst )
   (apply 'append
       (mapcar
           (function
               (lambda ( a b c )
                   (if
                       (not
                           (or (and (equal a e1) (equal b e2))
                               (and (equal b e1) (equal c e2))
                           )
                       )
                       (list b)
                   )
               )
           )
           (cons nil lst)
           lst
           (append (cdr lst) '(()))
       )
   )
)

copy

_$ (rem2 'a 'b '(c b d e a b c))
(C B D E C)

pBe · 发表于 2022-7-6 07:16:23

现在，你是对的“从列表中删除一对特定项目”。。我认为这是配对后的列表中的其余部分

快速修复

copy

(Defun rem2pBe (e1 e2 lst / l lst l2)
[color="blue"](while (and (setq x (car lst))(setq b (cdr lst))(null l2))
         (setq y (car b))
                 (if (and (eq x e1)(eq y e2))
                    (setq l2 (append (reverse l)
                       (cdr (member y (member x lst)))) l3 l2)
                  (setq l (cons x l)))
              (setq lst b)
 )[/color]
[color="red"] [b] (if (> (length lst) 1) (rem2pBe e1 e2 l2) l3)[/b][/color]
 )