疑问：vl-sort 对数值表排序，实数表不会删除重复值，整数表就可以删除。

dragoon33333

• 疑问：vl-sort 对数值表排序，实数表不会删除重复值，整数表就可以删除。这个函数是我用的不对吗。
  
  • (vl-sort '(16 16 14 14 14 14 14) '>)结果是(16 14)
  • (vl-sort '(16.0 16.0 14.2 14.2 14.2 14.2 14.2) '>)结果是(16.0 16.0 14.2 14.2 14.2 14.2 14.2)。
    

自贡黄明儒

就是这个样子的。如果不想被删除，则转成字符

dragoon33333

自贡黄明儒 发表于 2016-9-30 11:01
就是这个样子的。如果不想被删除，则转成字符

多谢黄工指点，我想让他删除重复的，因为原始是字符，我怕没法排序atof成实数的。我再写个lambda吧，就是不大会用无名函数。

自贡黄明儒

dragoon33333 发表于 2016-9-30 11:25
多谢黄工指点，我想让他删除重复的，因为原始是字符，我怕没法排序atof成实数的。我再写个lambda吧，就是 ...

先定义defun ,写完后把defun换成lambda ,去除defun后面那个名称，就是lambda函数了。

dragoon33333

自贡黄明儒 发表于 2016-9-30 11:32
先定义defun ,写完后把defun换成lambda ,去除defun后面那个名称，就是lambda函数了。

多谢，我再研究下。在看您的“点表排序、图元坐标点排序-----通吃-----再浓缩----最终版2014.2.22”。我再看下您的“带容差去除相同图元”。

自贡黄明儒

1. ;;(setq Lst '("16.0" "16.0" "14.2" "14.2" "14.2" "14.2" "14.2"))
   
2. ;;(w1 Lst)=>("16.0" "14.2")
   
3. (defun w1 (Lst / A L)
   
4.   (while (setq a (car Lst))
   
5.     (setq Lst (cdr Lst))
   
6.     (cond ((not (member a L)) (setq L (cons a L))))
   
7.   )
   
8.   (reverse L)
   
9. )

;;(setq Lst '("16.0" "16.0" "14.2" "14.2" "14.2" "14.2" "14.2"))<br /> ;;(w1 Lst)=>("16.0" "14.2")<br /> (defun w1 (Lst / A L)<br />   (while (setq a (car Lst))<br />     (setq Lst (cdr Lst))<br />     (cond ((not (member a L)) (setq L (cons a L))))<br />   )<br />   (reverse L)<br /> )

;;(setq Lst '("16.0" "16.0" "14.2" "14.2" "14.2" "14.2" "14.2"))
;;(w1 Lst)=>("14.2" "16.0")
(defun w1 (Lst / A L)
  (while (setq a (car Lst))
    (setq Lst (cdr Lst))
    (cond ((not (member a L)) (setq L (cons a L))))
  )
  (acad_strlsort L)
)

dragoon33333

自贡黄明儒 发表于 2016-9-30 11:39

信手拈来呀，研究下，多谢。