(XD::AssocList:K1->Kn)返回关联表两个KEY之间的所有数据

Lispboy

1. ;|返回关联表两个KEY之间的所有数据
   
2. 参数：
   
3.    lst ---- 关联表
   
4.    c1  ---- 关键字1
   
5.    c2  ---- 关键字2
   
6.    tf  ---- 如果为T，返回关联表的数据表（不带KEY）   
   
7. |;
   
8. (defun XD::AssocList:K1->KN (lst key1 key2 tf / info re x)
   
9.   (setq re (member (assoc key1 lst)
   
10.                    (reverse (cdr (member (assoc key2 lst)
    
11.                    (reverse lst))))
    
12.            )
    
13.   )
    
14.   (if tf
    
15.     (setq re (mapcar
    
16.                '(lambda (x)
    
17.                   (cdr x)
    
18.                 )
    
19.                re
    
20.              )
    
21.     )
    
22.   )
    
23.   re
    
24. )
    

;|返回关联表两个KEY之间的所有数据<br /> 参数：<br />    lst ---- 关联表<br />    c1  ---- 关键字1<br />    c2  ---- 关键字2<br />    tf  ---- 如果为T，返回关联表的数据表（不带KEY）   <br /> |;<br /> (defun XD::AssocList:K1->KN (lst key1 key2 tf / info re x)<br />   (setq re (member (assoc key1 lst) <br />                    (reverse (cdr (member (assoc key2 lst)<br />                    (reverse lst))))<br />            )<br />   )<br />   (if tf<br />     (setq re (mapcar<br />                '(lambda (x)<br />                   (cdr x)<br />                 )<br />                re<br />              )<br />     )<br />   )<br />   re<br /> )<br />