移除列表第N项

Lispboy

1. ;|
   
2.     移除列表第N项
   
3. 
   
4.    参数：
   
5.        LST ---- 表
   
6.        N   ---- 序号（从1开始）
   
7. |;
   
8. (defun XD::List:RemoveN (lst n / _t lst1 i l)
   
9.   (defun _t(lst n)
   
10.             (while (and
    
11.                    (setq a (car lst))
    
12.                    (< i n)
    
13.                  )
    
14.             (setq lst1 (cons a lst1)
    
15.                   lst (cdr lst)
    
16.                   i (1+ i)
    
17.             )
    
18.           )
    
19.     (list lst lst1)
    
20.   )
    
21.   (setq l (length lst))
    
22.   (cond
    
23.     ((= 1 n)
    
24.       (cdr lst)
    
25.     )
    
26.     ((> n l)
    
27.       lst
    
28.     )
    
29.     (t
    
30.       (if (< n (/ l 2.0))
    
31.         (progn
    
32.           (setq i 1)
    
33.           (setq lst(_t lst n)
    
34.                 lst1 (car lst)
    
35.                 lst (cadr lst)
    
36.           )
    
37.           (setq lst (cdr lst))
    
38.           (setq lst (XD::List:Append (reverse lst1) lst))
    
39.         )
    
40.         (progn
    
41.           (setq i 0)
    
42.           (setq lst (reverse lst))
    
43.           (setq  lst (_t lst (- l n))
    
44.                  lst1 (cadr lst)
    
45.                  lst (car lst)
    
46.           )
    
47.           (setq lst (reverse (cdr lst)))
    
48.           (setq lst (XD::List:APPEND lst lst1))
    
49.         )
    
50.       )
    
51.     )
    
52.   )
    
53.   lst
    
54. )

;|<br />     移除列表第N项<br /> <br />    参数：<br />        LST ---- 表<br />        N   ---- 序号（从1开始）<br /> |;<br /> (defun XD::List:RemoveN (lst n / _t lst1 i l)<br />   (defun _t(lst n)<br />             (while (and<br />                    (setq a (car lst))<br />                    (< i n)<br />                  )<br />             (setq lst1 (cons a lst1)<br />                   lst (cdr lst)<br />                   i (1+ i)<br />             )<br />           )<br />     (list lst lst1)<br />   )<br />   (setq l (length lst))<br />   (cond<br />     ((= 1 n)<br />       (cdr lst)<br />     )<br />     ((> n l)<br />       lst<br />     )<br />     (t<br />       (if (< n (/ l 2.0))<br />         (progn<br />           (setq i 1)<br />           (setq lst(_t lst n)<br />                 lst1 (car lst)<br />                 lst (cadr lst)<br />           )<br />           (setq lst (cdr lst))<br />           (setq lst (XD::List:Append (reverse lst1) lst))<br />         )<br />         (progn<br />           (setq i 0)<br />           (setq lst (reverse lst))<br />           (setq  lst (_t lst (- l n))<br />                  lst1 (cadr lst)<br />                  lst (car lst)<br />           )<br />           (setq lst (reverse (cdr lst)))<br />           (setq lst (XD::List:APPEND lst lst1))<br />         )<br />       )<br />     )<br />   )<br />   lst<br /> )

sicky111

谢谢楼主分享，如果能贴在一个帖子里就好了，便于查看。

q3_2006

这个有用，还看不太明白呀！

/db_自贡黄明儒_

最好随机取N
随机的那个在哪里？