elisp - 仅将元素的第一个外观删除到列表中？

Question

如何仅将元素的第一次出现删除到列表(elisp)中？

Answer 1

您可以使用此 elisp(需要 cl ):

(defun remove-first (elt seq)
  (let ((remove-first t))
    (remove-if (lambda (e) (when (and remove-first (equal elt e))
                             (setq remove-first nil)
                             t))
               seq)))

注意:这会复制原始列表。对于使用副作用的人，请尝试以下操作:

(defun remove-first* (elt seq)
  (if (equal elt (car seq))
      (cdr seq)
    (while (cdr seq)
      (if (equal elt (cadr seq))
          (progn (setcdr seq (cddr seq))
                 (setq seq nil))
        (setq seq (cdr seq))))
    seq))

注意:当第一个元素被移除时，只返回 cdr ，所以像往常一样使用这种类型的操作，像这样调用它:

(setq mylist (remove-first* 3 mylist))