Common Lisp:如何在没有给定列表的第n个元素的情况下返回列表？

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)))))

这将共享公共尾部,除非列表具有n或多个元素,在这种情况下,它返回一个新列表,其中包含与提供的元素相同的元素.

Answer 2

使用remove-if:

(defun foo (n list)
  (remove-if (constantly t) list :start (1- n) :count 1))

butlast/ nthcdr解决方案(更正):

(defun foo (n list)
  (append (butlast list (1+ (- (length list) n))) (nthcdr n list)))

或者,可能更具可读性:

(defun foo (n list)
  (append (subseq list 0 (1- n)) (nthcdr n list)))

使用loop:

(defun foo (n list)
  (loop for elt in list
        for i from 1
        unless (= i n) collect elt))