请教关于(VL-SORT list comparision-function)函数的用法？

badgirl

(VL-SORT list comparision-function)函数


这个函数是将list表排序并去除重复的元素。但是我用后没有得到这样的结果，请问用这个函数应注意些什么？


我的格式是(VL-SORT c1-item '<) 其中c1-item是我从excel表中读来的一组数据。

meflying

看看你的c1-item的内容

badgirl

c1-item 内容("E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E"
"E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "E" "H" "H" "H" "H" "H" "H"
"H" "H" "H" "H" "H" "H" "H" "H" "H" "K" "K" "K" "K" "K" "K" "K" "K" "K" "K" "K"
"K" "K" "K" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M"
"M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M"
"M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "M" "N" "N" "N" "N"
"N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N"
"N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N" "N"
"N" "N" "P" "P" "P" "P" "P" "P" "P" "P" "P")

meflying

这样：(mapcar 'chr (vl-sort (mapcar 'ascii c1-item) '<))

alin

It must be a mistake made by Autodesk.

meflying

也不是，在帮助文件中有这样的说明：


返回值


表，其中包含 list 中的元素，这些元素按照 comparison-function 中指定的顺序排列。表中可能删除了重复的元素。


就是没有明确说明哪种情况下会删除重复的元素，这个“可能”太模糊了

f5612140

指令: (setq a '("1" "2" "1" "3"))
("1" "2" "1" "3") 指令: (vl-sort a '<)
("1" "1" "2" "3") 指令: (setq b '(1 2 1 3))
(1 2 1 3) 指令: (vl-sort b '<)
(1 2 3)

meflying

楼上的，想说明什么呢？这几个我也知道啊，我上面的就是把字符转换成数字来排序的，问题是这个规律是什么？哪些会删除重复，哪些不删除，

f5612140

老大,那是寫給樓主看的,文字,數字,他該會判斷吧

无痕

整数，整数，还是整数

2. (setq a '("1" "2"   "1" "3"))
3. (vl-sort a '<)
4. ->("1" "1" "2" "3")
5. (mapcar 'chr (vl-sort (mapcar 'ascii a) '<))
6. ->("1" "2" "3") (setq b '(1 2 1 3))
7. (vl-sort b '<)
8. ->(1 2 3)(setq b '(1.1 2.1 1.1 3.1))
9. (vl-sort b '<)
10. ->(1.1 1.1 2.1 3.1)
11. (vl-sort b '(lambda(x y)(< (fix x)(fix y))))
12. ->(1.1 1.1 2.1 3.1)
13. (mapcar '(lambda(x)(/ x 1e5)) (vl-sort (mapcar '(lambda(x)(fix(* x 1e5))) b) '<))
14. ->(1.1 2.1 3.1) (setq c '("c" "d"   "a" "b" "a"))
15. (vl-sort c '<)
16. ->("a" "a" "b" "c" "d")
17. (mapcar 'chr (vl-sort (mapcar 'ascii c) '<))
18. ->("a" "b" "c" "d")

(setq a '("1" "2"   "1" "3")) (vl-sort a '<) ->("1" "1" "2" "3") (mapcar 'chr (vl-sort (mapcar 'ascii a) '<)) ->("1" "2" "3") (setq b '(1 2 1 3)) (vl-sort b '<) ->(1 2 3)(setq b '(1.1 2.1 1.1 3.1)) (vl-sort b '<) ->(1.1 1.1 2.1 3.1) (vl-sort b '(lambda(x y)(< (fix x)(fix y)))) ->(1.1 1.1 2.1 3.1) (mapcar '(lambda(x)(/ x 1e5)) (vl-sort (mapcar '(lambda(x)(fix(* x 1e5))) b) '<)) ->(1.1 2.1 3.1) (setq c '("c" "d"   "a" "b" "a")) (vl-sort c '<) ->("a" "a" "b" "c" "d") (mapcar 'chr (vl-sort (mapcar 'ascii c) '<)) ->("a" "b" "c" "d")