[LISP函数]：保留表前面N个元素

taner

2. 
   
3.   [FONT=courier new]
   
4. ;;; tt-lst-head - list l with the first n elements
   
5. (defun tt-lst-head (l n)
   
6.   (setq n (1+ n))
   
7.   (apply
   
8.     'append
   
9.     (mapcar
   
10.       (function (lambda (x)
    
11.                   (if (> (setq n (1- n))
    
12.                           0
    
13.                       )
    
14.                     (list x)
    
15.                     nil
    
16.                   )
    
17.                 )
    
18.       )
    
19.       l
    
20.     )
    
21.   )
    
22. )
    
23. ;;;命令: !lst
    
24. ;;;(0 1 2 3 4 5 6 7 8 9)
    
25. ;;;命令: (tt-lst-head lst 5)
    
26. ;;;(0 1 2 3 4)
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;; tt-lst-head - list l with the first n elements<br /> (defun tt-lst-head (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 /> ;;;命令: (tt-lst-head lst 5)<br /> ;;;(0 1 2 3 4)<br />   [/FONT]<br />

Free-Lancer

2. (defun fr-lst-head (lst n / l)
   
3.   (if (<= n (length lst))
   
4.       (repeat n
   
5.         (setq l          (cons (car lst) l)
   
6.               lst (cdr lst)
   
7.         )
   
8.       )
   
9.   )
   
10.   (reverse l)
    
11. )

(defun fr-lst-head (lst n / l)<br />   (if (<= n (length lst))<br />       (repeat n<br />         (setq l          (cons (car lst) l)<br />               lst (cdr lst)<br />         )<br />       )<br />   )<br />   (reverse l)<br /> )