如何删除重复字符串
<p>((“1600X1600” “1600X1600” “1500x1500”.........)) 如何变成 (( “1600X1600” “1500x1500”.........)) !!!</p><p>多谢高手指点</p><p></p><p> </p> <p>(setq a'("1600X1600" "1600X1600" "1500x1500") b'())</p><p>(foreach x a (if(not(member x b))(setq b(append b(list x)))))</p><p>b</p> <p>谢谢大哥 我在网上看到另外一个朋友写的函数</p><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> 学习了,谢谢! 又学习了一招
页:
[1]