[日积月累]：几个表处理函数

eachy

2. 
   
3. (defun a-values        (code lst)
   
4.   (mapcar 'cdr
   
5.           (vl-remove-if-not '(lambda (x) (= (car x) code)) lst)
   
6.   )
   
7. )
   
8. (defun firstN (N L)
   
9.   (cond        ((zerop N) nil)
   
10.         ((>= n (length l)) l)
    
11.         (T
    
12.          (cons
    
13.            (car L)
    
14.            (firstN (1- N) (cdr L))
    
15.          )
    
16.         )
    
17.   )
    
18. )
    
19. ;;(firstN  3 '(2 4 6 8 10 12))
    
20. ;;=>(2 4 6)
    
21. (defun nthcdr (N L)
    
22.   (cond        ((zerop N) L)
    
23.         (T (nthcdr (- N 1) (cdr L)))
    
24.   )
    
25. )
    
26. ;;(nthcdr  3 '(4 5 6 7 8 9 ))
    
27. ;;=> (7 8 9)
    
28. 
    
29. (defun remove-member (a / ex)
    
30.   (setq ex (vl-remove (car a) a))
    
31.   (if (car a)
    
32.     (cons (car a) (remove-member ex))
    
33.   )
    
34. )
    
35. 
    
36. ;;_$ (remove-member '(1 2 2 3 2 3 4 2 1 2 3 4 2 2 4 1 2))
    
37. ;;(1 2 3 4)
    
38. ;;_$ (remove-member '("a" "df" "a" "we" "sf" "we" "a" "ee"))
    
39. ;;("a" "df" "we" "sf" "ee")
    
40. (defun vvl-remove (A L /)
    
41.   (apply 'append
    
42.          (mapcar '(lambda (x)
    
43.                     (if        (not (equal x A))
    
44.                       (list x)
    
45.                     )
    
46.                   )
    
47.                  L
    
48.          )
    
49.   )
    
50. )
    

<br /> (defun a-values        (code lst)<br />   (mapcar 'cdr<br />           (vl-remove-if-not '(lambda (x) (= (car x) code)) lst)<br />   )<br /> )<br /> (defun firstN (N L)<br />   (cond        ((zerop N) nil)<br />         ((>= n (length l)) l)<br />         (T<br />          (cons<br />            (car L)<br />            (firstN (1- N) (cdr L))<br />          )<br />         )<br />   )<br /> )<br /> ;;(firstN  3 '(2 4 6 8 10 12))<br /> ;;=>(2 4 6)<br /> (defun nthcdr (N L)<br />   (cond        ((zerop N) L)<br />         (T (nthcdr (- N 1) (cdr L)))<br />   )<br /> )<br /> ;;(nthcdr  3 '(4 5 6 7 8 9 ))<br /> ;;=> (7 8 9)<br /> <br /> (defun remove-member (a / ex)<br />   (setq ex (vl-remove (car a) a))<br />   (if (car a)<br />     (cons (car a) (remove-member ex))<br />   )<br /> )<br /> <br /> ;;_$ (remove-member '(1 2 2 3 2 3 4 2 1 2 3 4 2 2 4 1 2))<br /> ;;(1 2 3 4)<br /> ;;_$ (remove-member '("a" "df" "a" "we" "sf" "we" "a" "ee"))<br /> ;;("a" "df" "we" "sf" "ee")<br /> (defun vvl-remove (A L /)<br />   (apply 'append<br />          (mapcar '(lambda (x)<br />                     (if        (not (equal x A))<br />                       (list x)<br />                     )<br />                   )<br />                  L<br />          )<br />   )<br /> )<br />