关于 VL函数的一个陷阱

Highflybird

首先我们来看一下：vl-remove
(vl-remove 4 '(1 2 4 5 4.0))
我们期望的结果是: '(1 2 5 )
但我们得到的结果却是：'(1 2 5 4.0)
那么我们用
(vl-remove 4.0 '(1 2 4 5 4.0))来试试看：
结果却是：'(1 2 4 5)
我们很奇怪的是 4 跟4.0是两个不同的元素。

同样我们来测试另外一个函数：vl-position
(vl-position 4 '(1 2 4.0))
==>nil
(vl-position 4.0 '(1 2 4.0))
==>2
可见4 跟4.0的确不同。

还有一个函数，vl-sort
(vl-sort '(1 2 4.0 4 4 2.0) '<)
==>(1 2 2.0 4.0 4)
如果相同的数中有整数，它会移除掉其他相等的元素。
(vl-sort (mapcar 'float '(1 2 4.0 4 4 2.0)) '<)
==>(1.0 2.0 2.0 4.0 4.0 4.0)
而对于浮点数来说，即使两个元素相等，它也不会移除。
所以我在这里提醒的一点就是： 在编程的时候我们需要注意到这个陷阱。

newer

可能是ADESK为了区别整数和浮点数吧，浮点数有误差，表里面显示的是4.0，可能实际有时候不是。

newer

对浮点数，判断相等一定要用差的绝对值小于一个极小数来判断。

Highflybird

然而对于 4和4.0,
下面是成立的：
(eq 4 4.0)
==》T

试比较一下：
(member 4 '(1 2 4.0))
==>'(4.0)
(member 4.0 '(1 2 4))
==>'(4)

在这样的情况下，vl-remove 可以用vl-move-if来替代：
_$ (vl-remove-if '(lambda (x) (= x 4)) '(1 2 4 5 4.0))
(1 2 5)
_$ (vl-remove-if '(lambda (x) (= x 4.0)) '(1 2 4 5 4.0))
(1 2 5)

st788796

XD:: List:GroupByIndex中就是将INT先Float后再vl-sort的

炫翔

看来在不是必须要INT的情况下,尽量Float
从来不依赖 vl-sort 来删重复

/db_自贡黄明儒_

自定义的vl-remove就不会出问题{:soso_e112:}
(defun remove (lst ele) (apply 'append (subst nil (list ele) (mapcar 'list lst))))

1121443108qaz

/db_自贡黄明儒_ 发表于 2013-12-27 08:16
自定义的vl-remove就不会出问题
(defun remove (lst ele) (apply 'append (subst nil (list  ...

原来remove就是用nil替代里面和东西啊，666