[LISP函数]：與ASSOC類似的一個函數

taner

2. 
   
3.   [FONT=courier new]
   
4. ；與ASSOC類似的一個函數
   
5. (defun anti-assoc (key lst / i)
   
6.   (if (setq i (vl-position
   
7.                 key
   
8.                 (mapcar
   
9.                   'cdr
   
10.                   lst
    
11.                 )
    
12.               )
    
13.       )
    
14.     (nth i lst)
    
15.   )
    
16. )
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> ；與ASSOC類似的一個函數<br /> (defun anti-assoc (key lst / i)<br />   (if (setq i (vl-position<br />                 key<br />                 (mapcar<br />                   'cdr<br />                   lst<br />                 )<br />               )<br />       )<br />     (nth i lst)<br />   )<br /> )<br />   [/FONT]<br />