Common Lisp中remove函数失效，保留重复项最后实例的问题排查

原代码的核心问题 #

• remove函数的使用错误：remove是非破坏性函数，它会返回一个移除指定元素后的新列表，但你调用(remove item1 list)后没有保存这个新列表，原输入列表完全不会被修改，所以输出和输入一致。
• 双重循环逻辑混乱：你通过嵌套循环计数的方式完全没意义——每次遍历item1时，遍历整个列表计数，一旦count1>1就调用remove，但这个操作是针对原始列表的，且没有保留结果，循环结束后count1又被重置为0，等于做了无用功。
• delete的误用：delete是破坏性函数，会直接修改原列表，但你的逻辑没有控制“保留最后一个实例”，所以会把所有相同元素全部删除，还打乱原有顺序。

正确实现：保留重复项的最后一个实例 #

要实现需求，最直观的思路是从后往前遍历列表，记录已经处理过的元素，只保留第一次遇到的（也就是原列表中最后出现的）元素，最后整理顺序即可。下面提供两种简洁的实现方式：

方式1：用哈希表记录已出现元素

(defun remove-duplicates-keep-last (list)
  (let ((seen (make-hash-table :test #'equal))
        (result nil))
    (dolist (item (reverse list))
      (unless (gethash item seen)
        (setf (gethash item seen) t)
        (push item result)))
    result))

测试示例：(remove-duplicates-keep-last '(1 3 4 4 5 4 6)) 会返回 (1 3 5 4 6)，完全符合保留最后一个重复项的要求。

方式2：用reduce函数实现

(defun remove-duplicates-keep-last (list)
  (reduce (lambda (acc item)
            (if (member item acc)
                acc
                (cons item acc)))
          (reverse list)
          :initial-value nil))

逻辑和第一种一致：反转列表后从后往前处理，用reduce积累结果，只添加未出现过的元素。

内容的提问来源于stack exchange，提问作者user24086084