Количество различных элементов списка

;;считаем количество элементов в списке, с заходом в подсписки
(defun count (s)
    (cond ((null s) 0)
          ((listp (car s))(+ (count (car s)) (count (cdr s))))
          (t (1+ (count (cdr s))))
    )
)
 
;;ищем повторения
(defun rep (x s)
    (cond ((null s) 0)
          ((listp (car s)) (+ (rep x (car s)) (rep x (cdr s))))
          ((eql x (car s)) (1+ (rep x (cdr s))))
          (t (rep x (cdr s)))
    )
)

(defun task (lst)
  (length (setof (flatten lst))))
 
==> task
 
(task '(1 2 3 (((4) (1 2 3)))))
 
==> 4

(defun flatten (lst) 
  (cond ((null lst) nil)
        ((atom (car lst)) (cons (car lst) (flatten (cdr lst))))
        (t (append (flatten (car lst)) (flatten (cdr lst))))))
 
==> flatten
 
(flatten '(1 2 3 (((1 2 3)))))
 
==> (1 2 3 1 2 3)
 
(defun setof (lst)
  (cond ((null lst) nil)
        (t (cons (car lst) (setof (remove (car lst) (cdr lst)))))))
 
==> setof
 
(setof '(1 2 3 1 2 3))
 
==> (1 2 3)

(defun count-exclusive (w) (length (exclusive w)))
 
(defun exclusive (w &optional ac)
  (cond ((null w) ac)
        ((atom w) (adjoin w ac))
        ((exclusive (car w) (exclusive (cdr w) ac)))))
 
> (count-exclusive '(1 2 3 (((4) (1 2 3)))))
4