lisp - 普通口齿不清 : How to return a list without the nth element of a given list?

Question

我有一个问题，如何返回没有给定列表的第 n 个元素的列表？例如，给定列表:(1 2 3 2 4 6)，并给定 n = 4，在这种情况下，返回列表应为 (1 2 3 4 6)。

Answer 1

一个简单的递归解决方案:

(defun remove-nth (n list)
  (declare
    (type (integer 0) n)
    (type list list))
  (if (or (zerop n) (null list))
    (cdr list)
    (cons (car list) (remove-nth (1- n) (cdr list)))))

这将共享公共(public)尾部，除非列表有 n 或更多元素，在这种情况下，它会返回一个与提供的元素相同的新列表。