（XD::List:IndexSeqMakeLength）根据整数参数，构建基于0的整数表

Lispboy

1. ; (XD::List:IndexSeqMakeLength 7) => (0 1 2 3 4 5 6)
   
2. (defun XD::List:IndexSeqMakeLength (len / ret)
   
3.   (repeat (rem len 4)
   
4.     (setq ret (cons (setq len (1- len)) ret))
   
5.   )
   
6.   (repeat (/ len 4)
   
7.     (setq ret
   
8.       (vl-list*
   
9.         (- len 4)
   
10.         (- len 3)
    
11.         (- len 2)
    
12.         (- len 1)
    
13.         ret
    
14.       )
    
15.     )
    
16.     (setq len (- len 4))
    
17.   )
    
18.   ret
    
19. )
    

; (XD::List:IndexSeqMakeLength 7) => (0 1 2 3 4 5 6)<br /> (defun XD::List:IndexSeqMakeLength (len / ret)<br />   (repeat (rem len 4)<br />     (setq ret (cons (setq len (1- len)) ret))<br />   )<br />   (repeat (/ len 4)<br />     (setq ret<br />       (vl-list*<br />         (- len 4)<br />         (- len 3)<br />         (- len 2)<br />         (- len 1)<br />         ret<br />       )<br />     )<br />     (setq len (- len 4))<br />   )<br />   ret<br /> )<br />