有没有统计表元素在表中个数的程序？

tm20038175

例如一个表，lst=(n1 n1 n2 n3 n3 n3)，我只想得到表中数量为1的元素n2(n1出现了2次，排除)，有什么高效的算法吗？海量点阵，还请大家帮助优化下！…

yjr111

(repeat (length lst)
(if(not(member (car lst)(cdr lst)))   (progn
   (setq newlst(append newlst  (car lst)))  (setq lst(cdr lst))
   )
(setq lst(vl-remove  (car lst) ))
)
)

nzl1116

2. (defun func (Lst)
   
3.   (if (cadr Lst)
   
4.     (if        (member (car Lst) (cdr Lst))
   
5.       (func (vl-remove (car Lst) Lst))
   
6.       (car Lst)
   
7.     )
   
8.     Lst
   
9.   )
   
10. )

(defun func (Lst)<br />   (if (cadr Lst)<br />     (if        (member (car Lst) (cdr Lst))<br />       (func (vl-remove (car Lst) Lst))<br />       (car Lst)<br />     )<br />     Lst<br />   )<br /> )

tm20038175

谢谢啦，两位好心人！
不知道处理海量点时候效率怎样，能不能在优化些，先谢过了！…………

zbz81

如何统计用PE合并的图形啊？？？QQ584985732