带容差的member

自贡黄明儒

1. 带容差的member
   
2. ;;当Fuzz=0时，结果同系统member
   
3. ;;(HH:member 3 '(2 5 3) 0) => '(3)
   
4. (defun HH:member (item Lst Fuzz / A FLAG)
   
5.   (while (and (not Flag) (setq a (car lst)))
   
6.     (if        (equal item a Fuzz)
   
7.       (setq Flag T)
   
8.     )
   
9.     (setq lst (cdr lst))
   
10.   )
    
11.   (if Flag
    
12.     (cons a lst)
    
13.   )
    
14. )

带容差的member<br /> ;;当Fuzz=0时，结果同系统member<br /> ;;(HH:member 3 '(2 5 3) 0) => '(3)<br /> (defun HH:member (item Lst Fuzz / A FLAG)<br />   (while (and (not Flag) (setq a (car lst)))<br />     (if        (equal item a Fuzz)<br />       (setq Flag T)<br />     )<br />     (setq lst (cdr lst))<br />   )<br />   (if Flag<br />     (cons a lst)<br />   )<br /> )

itoboy

黄师兄威武，刚好用上这个函数，谢谢

vip-happy

不知能否用于点表[2维]比较


(defun tolerance_member (b lst f / a Flag)
  (defun H_compare (a b f)
    (and
      (equal (car b) (car a) f)
      (equal (cadr b) (cadr a) f)
    )
  )
  (while (and  (not Flag)  (setq a (car lst)))
    (if (setq Flag (H_compare (a b f)))
      nil
      (setq lst (cdr lst))
    )
  )
  Flag
)

xtjd

(defun member+(expr lst fuzz)
  (vl-member-if(function(lambda(x)(equal expr x fuzz)))lst)
)

vip-happy

xtjd 发表于 2021-9-8 07:57
(defun member+(expr lst fuzz)
  (vl-member-if(function(lambda(x)(equal expr x fuzz)))lst)
)

好精简的代码不知能用于2维点表搜索