在表指定位置之后插入元素

Lispboy

1. ;|
   
2.   在表指定位置之后插入元素
   
3. 
   
4.   参数：
   
5.      LST ---- 表
   
6.      n   ---- 序号
   
7.      E   ---- 元素
   
8. 
   
9. 说明：N大于表长，在最后插入
   
10.        N小于1，在表头插入
    
11. 
    
12. |;
    
13. (defun XD::List:Insert (lst n e / lst1 x)
    
14.   (cond
    
15.     ((< n 1)
    
16.       (setq lst1 (cons e lst))
    
17.     )
    
18.     ((> n (length lst))
    
19.       (setq lst1 (reverse (cons e (reverse lst))))
    
20.     )
    
21.     (t
    
22.       (setq lst1 (cons e (XD::List:N+ lst n)))
    
23.       (mapcar
    
24.         '(lambda (x)
    
25.            (setq lst1 (cons x lst1))
    
26.          )
    
27.         (reverse (XD::List:N- lst n))
    
28.       )
    
29.     );;;为了不用APPEND，构造了MAPCAR+CONS
    
30.   )
    
31.   lst1
    
32. )
    
33. 
    

;|<br />   在表指定位置之后插入元素<br /> <br />   参数：<br />      LST ---- 表<br />      n   ---- 序号<br />      E   ---- 元素<br /> <br /> 说明：N大于表长，在最后插入<br />        N小于1，在表头插入<br /> <br /> |;<br /> (defun XD::List:Insert (lst n e / lst1 x)<br />   (cond<br />     ((< n 1)<br />       (setq lst1 (cons e lst))<br />     )<br />     ((> n (length lst))<br />       (setq lst1 (reverse (cons e (reverse lst))))<br />     )<br />     (t<br />       (setq lst1 (cons e (XD::List:N+ lst n)))<br />       (mapcar<br />         '(lambda (x)<br />            (setq lst1 (cons x lst1))<br />          )<br />         (reverse (XD::List:N- lst n))<br />       )<br />     );;;为了不用APPEND，构造了MAPCAR+CONS<br />   )<br />   lst1<br /> )<br /> <br />

Free-Lancer

过去的一个讨论
http://www.xdcad.net/forum/forum ... read&tid=657877

kkt123

捕捉不是很好用!!!!;P