[LISP函数]：删除表前面N个元素

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; [url]http://autocad.xarch.at/lisp/goodies.html[/url]
   
5. ;;; th-lst-tail - list l without the first n elements
   
6. (defun th-lst-tail (l n)
   
7.   (cond
   
8.     ((zerop n)
   
9.       l
   
10.     )
    
11.     (t
    
12.       (th-lst-tail (cdr l) (1- n))
    
13.     )
    
14.   )
    
15. )
    
16. (defun tt-lst-tail (l n)
    
17.   (setq n (1+ n))
    
18.   (apply
    
19.     'append
    
20.     (mapcar
    
21.       (function (lambda (x)
    
22.                   (if (<= (setq n (1- n))
    
23.                           0
    
24.                       )
    
25.                     (list x)
    
26.                     nil
    
27.                   )
    
28.                 )
    
29.       )
    
30.       l
    
31.     )
    
32.   )
    
33. )
    
34. ;;;命令: !lst
    
35. ;;;(0 1 2 3 4 5 6 7 8 9)
    
36. ;;;命令: (th-lst-tail lst 5) (5 6 7 8 9)
    
37. ;;;命令: (tt-lst-tail lst 5)(5 6 7 8 9)
    
38.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; [url]http://autocad.xarch.at/lisp/goodies.html[/url]<br /> ;;; th-lst-tail - list l without the first n elements<br /> (defun th-lst-tail (l n)<br />   (cond<br />     ((zerop n)<br />       l<br />     )<br />     (t<br />       (th-lst-tail (cdr l) (1- n))<br />     )<br />   )<br /> )<br /> (defun tt-lst-tail (l n)<br />   (setq n (1+ n))<br />   (apply<br />     'append<br />     (mapcar<br />       (function (lambda (x)<br />                   (if (<= (setq n (1- n))<br />                           0<br />                       )<br />                     (list x)<br />                     nil<br />                   )<br />                 )<br />       )<br />       l<br />     )<br />   )<br /> )<br /> ;;;命令: !lst<br /> ;;;(0 1 2 3 4 5 6 7 8 9)<br /> ;;;命令: (th-lst-tail lst 5) (5 6 7 8 9)<br /> ;;;命令: (tt-lst-tail lst 5)(5 6 7 8 9)<br />   [/FONT]<br />

Free-Lancer

2. 
   
3. (defun fr-lst-tail (lst n /)
   
4.   (cond
   
5.     ((zerop n)
   
6.      lst
   
7.     )
   
8.     ((>= n (length lst))
   
9.      nil
   
10.     )
    
11.     (t
    
12.      (repeat n
    
13.        (setq lst (cdr lst))
    
14.      )
    
15.      lst
    
16.     )
    
17.   )
    
18. )

<br /> (defun fr-lst-tail (lst n /)<br />   (cond<br />     ((zerop n)<br />      lst<br />     )<br />     ((>= n (length lst))<br />      nil<br />     )<br />     (t<br />      (repeat n<br />        (setq lst (cdr lst))<br />      )<br />      lst<br />     )<br />   )<br /> )

FlyBird888

好的函数，一定支持LZ

XD0001

支持，这里很多有用的函数

yjch

支持楼主的函数收了