vl-sort 排序消重不理会实数

434939575

今天用vl-sort。进行排序。看到参考例子

1. 对数值表排序：
   
2. 
   
3. _$ (vl-sort '(3 2 1 3) '<)
   
4. (1 2 3)     ;  
   

复制代码

我的表是实数

1. (vl-sort '(3.0    3.0  3.0  3.0  2  3) '<)
   
2. 返回 :(2 3.0 3.0 3.0 3.0 3)
   
3. 估计是只能接受整数。才能消重了。

复制代码

自贡黄明儒

可能你不怎么上明经和晓东，均有讨论
(vl-sort (mapcar '(lambda (x) (read(rtos x 2 8))) '(3.0    3.0  3.0  3.0  2  3)) '<)

434939575

自贡黄明儒 发表于 2015-3-5 12:44
可能你不怎么上明经和晓东，均有讨论
(vl-sort (mapcar '(lambda (x) (read(rtos x 2 8))) '(3.0    3.0   ...

谢谢大师关照指点。我用FIX处理的。