（XD::List:Nth++）返回表指定位置开始，长度n的子表

marting

1. (defun XD::List:Nth++ (l s n)
   
2.     (repeat (/ s 4) (setq l (cddddr l)))
   
3.     (repeat (rem s 4) (setq l (cdr l)))
   
4.     (setq s nil)
   
5.     (if (and l n)
   
6.         (cond ((>= n (length l)) l)
   
7.               ((< n (- (length l) n))
   
8.                (repeat (/ n 4)
   
9.                    (setq s (cons (cadddr l)
   
10.                                  (cons (caddr l) (cons (cadr l) (cons (car l) s)))
    
11.                            )
    
12.                          l (cddddr l)
    
13.                    )
    
14.                )
    
15.                (repeat (rem n 4)
    
16.                    (setq s (cons (car l) s)
    
17.                          l (cdr l)
    
18.                    )
    
19.                )
    
20.                (reverse s)
    
21.               )
    
22.               (t
    
23.                (setq l (reverse l)
    
24.                      s (- (length l) n)
    
25.                )
    
26.                (repeat (/ s 4) (setq l (cddddr l)))
    
27.                (repeat (rem s 4) (setq l (cdr l)))
    
28.                (reverse l)
    
29.               )
    
30.         )
    
31.         l
    
32.     )
    
33. )
    

(defun XD::List:Nth++ (l s n)<br />     (repeat (/ s 4) (setq l (cddddr l)))<br />     (repeat (rem s 4) (setq l (cdr l)))<br />     (setq s nil)<br />     (if (and l n)<br />         (cond ((>= n (length l)) l)<br />               ((< n (- (length l) n))<br />                (repeat (/ n 4)<br />                    (setq s (cons (cadddr l)<br />                                  (cons (caddr l) (cons (cadr l) (cons (car l) s)))<br />                            )<br />                          l (cddddr l)<br />                    )<br />                )<br />                (repeat (rem n 4)<br />                    (setq s (cons (car l) s)<br />                          l (cdr l)<br />                    )<br />                )<br />                (reverse s)<br />               )<br />               (t<br />                (setq l (reverse l)<br />                      s (- (length l) n)<br />                )<br />                (repeat (/ s 4) (setq l (cddddr l)))<br />                (repeat (rem s 4) (setq l (cdr l)))<br />                (reverse l)<br />               )<br />         )<br />         l<br />     )<br /> )<br />

/db_自贡黄明儒_

;;(XD::List:RemoveS '(1 2 3 4 5 6 7) 5)=>(6 7)
(defun XD::List:RemoveS (l s)
  (repeat (/ s 4) (setq l (cddddr l)))
  (repeat (rem s 4) (setq l (cdr l)))
)
(defun XD::List:Nth++ (l s n)
  (setq L (XD::List:RemoveS l s))
  (if L
    (reverse (XD::List:Nth++ (reverse l) (- (length l) n)))
  )
)