(XD::assocList:RemoveDupByNumKey )删除关联表 数字KEY 根据模糊精度 的重复项

newer

1. ;|
   
2. 删除关联表 数字KEY 根据模糊精度 的重复项
   
3. 参数：
   
4.    lst ---- 关联表（数字KEY）
   
5.    fuzz --- 模糊精度
   
6. 返回值： 表
   
7. 说明： 1、算法时间复杂度n
   
8.        2、操作完，关联表排升序了
   
9. |;
   
10. (defun XD::assocList:RemoveDupByNumKey (lst fuzz / key key1 lst1 x y)
    
11.   (setq lst (vl-sort lst '(lambda (x y)
    
12.        (< (car x) (car y))
    
13.      )
    
14.      )
    
15.   )
    
16.   (setq lst1 (list (car lst))
    
17. key (car (car lst1))
    
18.   )
    
19.   (mapcar
    
20.     '(lambda (x)
    
21.        (setq key1 (car x))
    
22.        (if (not (equal key key1 fuzz))
    
23.   (progn
    
24.     (setq lst1 (cons x lst1)
    
25.    key (car x)
    
26.     )
    
27.   )
    
28.        )
    
29.      )
    
30.     (cdr lst)
    
31.   )
    
32.   (reverse lst1)
    
33. )
    

;|<br /> 删除关联表 数字KEY 根据模糊精度 的重复项<br /> 参数：<br />    lst ---- 关联表（数字KEY）<br />    fuzz --- 模糊精度<br /> 返回值： 表<br /> 说明： 1、算法时间复杂度n<br />        2、操作完，关联表排升序了<br /> |;<br /> (defun XD::assocList:RemoveDupByNumKey (lst fuzz / key key1 lst1 x y)<br />   (setq lst (vl-sort lst '(lambda (x y)<br />        (< (car x) (car y))<br />      )<br />      )<br />   )<br />   (setq lst1 (list (car lst))<br /> key (car (car lst1))<br />   )<br />   (mapcar<br />     '(lambda (x)<br />        (setq key1 (car x))<br />        (if (not (equal key key1 fuzz))<br />   (progn<br />     (setq lst1 (cons x lst1)<br />    key (car x)<br />     )<br />   )<br />        )<br />      )<br />     (cdr lst)<br />   )<br />   (reverse lst1)<br /> )<br />