(XD::AssocList:AddSubItem)关联表添加一个子项

Lispboy

1. ;|
   
2. 关联表添加一个子项
   
3. 参数：
   
4.   lst ---- 关联表
   
5.   key ---- KEY值
   
6.   val ---- 值
   
7. 返回：
   
8.   关联表
   
9. 
   
10. 说明：若lst空，创建新的关联表  
    
11. |;
    
12. (defun XD::AssocList:AddSubItem(lst key val / new old)
    
13.   (if (setq old (assoc key lst))
    
14.     (progn
    
15.        (setq new (cons key (reverse (cons val (reverse (cdr old))))))
    
16.        (setq lst (subst new old lst))
    
17.     )
    
18.     (progn
    
19.       (setq lst (reverse (cons (list key val) (reverse lst))))
    
20.     )
    
21.   )
    
22.   lst
    
23. )

;|<br /> 关联表添加一个子项<br /> 参数：<br />   lst ---- 关联表<br />   key ---- KEY值<br />   val ---- 值<br /> 返回：<br />   关联表<br /> <br /> 说明：若lst空，创建新的关联表  <br /> |;<br /> (defun XD::AssocList:AddSubItem(lst key val / new old)<br />   (if (setq old (assoc key lst))<br />     (progn<br />        (setq new (cons key (reverse (cons val (reverse (cdr old))))))<br />        (setq lst (subst new old lst))<br />     )<br />     (progn<br />       (setq lst (reverse (cons (list key val) (reverse lst))))<br />     )<br />   )<br />   lst<br /> )

st788796

添加没必要添到最后吧

不知道和
(mapcar '(lambda (x) (if(equal (car x) key)  (append x (list val)) x)) lst)
哪个好些