使用 lisp 上的 dolist 从列表中提取 n 元素

Question

我正在尝试创建一个函数，它将字母列表作为参数，将单个字母作为参数。我想从列表中删除单个字母。

(defun extract-all (lett li)
   (let ((new-list nil))
     (dolist (letter li new-list)
        (if (eql lett letter)
             (setf new-list (cons nil new-list))
          (setf new-list (cons letter new-list))))))

所以如果我使用(extract-all 'n '(i n t e l l)) 调用该函数，我希望它返回i t e l l 并删除n。

Answer 1

首先，您没有删除字母 (characters)，而是 symbols:

(type-of 'n)
==> SYMBOL

其次，有一个标准函数remove可以做到这一点：

(remove 'n '(i n t e l l))
==> (I T E L L)

第三，如果你删除你的“then”子句和reverse结果，你会得到你想要的：

(defun my-remove (object list)
  (let ((new-list nil))
    (dolist (element list (nreverse new-list))
      (unless (eql object element)
        (push element new-list)))))
(my-remove 'n '(i n t e l l))
==> (I T E L L)

注意还有更多的方法可以给猫剥皮，例如，

(defun my-remove (object list)
  (loop for element in list
    unless (eql object element)
    collect element))

但是，最好使用该库。

另见Where to learn how to practically use Common Lisp。