[LISP函数]：保留列表的第m~n项

taner

http://www.xdcad.net/forum/showthread.php?s=&threadid=642680

2. 
   
3.   [FONT=courier new]
   
4. (defun th-del-lst>mn< (m n lst / j)    ; 保留列表的第m~n项
   
5.   (setq j -1)
   
6.   (th-remove-if-not '(lambda (x)
   
7.                        (and
   
8.                          (setq j (1+ j))
   
9.                          (<= m j)
   
10.                          (>= n j)
    
11.                        )
    
12.                      ) lst
    
13.   )
    
14. )
    
15. ;;; 命令: (setq lst (list 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1))
    
16. ;;; (1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1)
    
17. ;;; 命令: (th-del-lst>mn< 3 6 lst)
    
18. ;;; (4 5 6 7)
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun th-del-lst>mn< (m n lst / j)    ; 保留列表的第m~n项<br />   (setq j -1)<br />   (th-remove-if-not '(lambda (x)<br />                        (and<br />                          (setq j (1+ j))<br />                          (<= m j)<br />                          (>= n j)<br />                        )<br />                      ) lst<br />   )<br /> )<br /> ;;; 命令: (setq lst (list 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1))<br /> ;;; (1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1)<br /> ;;; 命令: (th-del-lst>mn< 3 6 lst)<br /> ;;; (4 5 6 7)<br />   [/FONT]<br />

Free-Lancer

2. 
   
3. (defun fr-del-lst>mn< (m n lst / j l)
   
4.   (setq j 0 tf t)
   
5.   (while (and tf lst)
   
6.     (if        (and (>= j m)
   
7.              (<= j n)
   
8.         )
   
9.       (setq l (cons (car lst) l))
   
10.     )
    
11.     (setq lst (cdr lst)
    
12.           j   (1+ j)
    
13.     )
    
14.     (if (> j n) (setq tf nil))
    
15.   )
    
16.   (reverse l)
    
17. )

<br /> (defun fr-del-lst>mn< (m n lst / j l)<br />   (setq j 0 tf t)<br />   (while (and tf lst)<br />     (if        (and (>= j m)<br />              (<= j n)<br />         )<br />       (setq l (cons (car lst) l))<br />     )<br />     (setq lst (cdr lst)<br />           j   (1+ j)<br />     )<br />     (if (> j n) (setq tf nil))<br />   )<br />   (reverse l)<br /> )