list - 我如何找到一个列表有多少个不同的元素？在口齿不清

Question

在 Lisp 中，我如何找到一个列表有多少个不同的元素？

Answer 1

(length (remove-duplicates <your list>))

最短的方法，但也可以一次性完成，如下所示：

(defun count-distinct (list)
  (let ((table (make-hash-table)))
    (dolist (i list (hash-table-count table))
      (setf (gethash i table) t))))