带容差的member

/db_自贡黄明儒_

;;带容差的member
;;(HH:member 3 '(2 5 3) 0) => '(3)

1. (defun HH:member (item Lst Fuzz / A FLAG)
   
2.   (while (and (not Flag) (setq a (car lst)))
   
3.     (if        (equal item a Fuzz)
   
4.       (setq Flag T)
   
5.     )
   
6.     (setq lst (cdr lst))
   
7.   )
   
8.   (if Flag
   
9.     (cons a lst)
   
10.   )
    
11. )
    

(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 /> )<br />

炫翔

我习惯这样写

1. (defun memberEqual(l-st item fuzz / l)
   
2. (while l-st
   
3.    (if (equal item (car l-st) fuzz)
   
4.      (setq l l-st l-st nil)
   
5.      (setq l-st(cdr l-st))
   
6.    )
   
7. )
   
8. l
   
9. )

(defun memberEqual(l-st item fuzz / l)<br /> (while l-st<br />    (if (equal item (car l-st) fuzz)<br />      (setq l l-st l-st nil)<br />      (setq l-st(cdr l-st))<br />    )<br /> )<br /> l<br /> )