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

Lispboy · 发表于 2014-12-18 20:21:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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

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

账号		自动登录	找回密码
密码			立即注册

[表] （XD::AssocList:K1->Kn）返回关联表两个KEY之间的所有数据

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。