liminnet
发表于 2008-8-11 10:35:00
caoyin
发表于 2008-8-11 11:27:00
<p>(defun test (lst / a lst2)<br/> (while (setq a (car lst) lst2 (cons a lst2) lst (vl-remove a lst)))<br/> (reverse lst2)<br/>)</p><p>;;(test '("aa.jpg""aa.jpg" "bb.jpg"))</p>
liminnet
发表于 2008-8-11 12:01:00
caoyin
发表于 2008-8-11 12:26:00
<p>(test '("2" 2 "a" "aa.jpg""aa.jpg" "bb.jpg" "a" "aa" "a" 1 2 5 "" "" "2" "3"))</p><p>->("2" 2 "a" "aa.jpg" "bb.jpg" "aa" 1 5 "" "3")</p><p>除非是包含点集或实数需要设置误差值的表进行比较</p>
页:
[1]