[LISP函数]：制造一整数列表

eachy

2. 
   
3. ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21
   
4. ;;;xd-INTLST  - create '(0 1 2 ... n)
   
5. ;;; 制造一整数列表
   
6. ;;; n 整数
   
7. ;;; 返回值: 整数列表
   
8. (defun xd-intlst (n / l)
   
9.   (repeat n
   
10.     (setq l (cons (setq n (1- n)) l))
    
11.   )
    
12.   l
    
13. )

<br /> ;; Form [url]www.xdcad.net[/url] eachy 2005.9.21<br /> ;;;xd-INTLST  - create '(0 1 2 ... n)<br /> ;;; 制造一整数列表<br /> ;;; n 整数<br /> ;;; 返回值: 整数列表<br /> (defun xd-intlst (n / l)<br />   (repeat n<br />     (setq l (cons (setq n (1- n)) l))<br />   )<br />   l<br /> )

zwx62504

;生成n个相同字符的字符串
(defun xd-nstr (n 1char / l)
(setq l "")
  (repeat n
    (setq l (strcat 1char l))
  )
  l
)

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun xd-intlst (n / l)
   
5.   (cond
   
6.     ((> n 0)
   
7.       (repeat n
   
8.         (setq l (cons (setq n (1- n))
   
9.                       l
   
10.                 )
    
11.         )
    
12.       )
    
13.     )
    
14.     (t
    
15.       (repeat (abs n)
    
16.         (setq l (cons (setq n (1+ n))
    
17.                       l
    
18.                 )
    
19.         )
    
20.       )
    
21.       (reverse l)
    
22.     )
    
23.   )
    
24. )
    
25. 
    
26.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun xd-intlst (n / l)<br />   (cond<br />     ((> n 0)<br />       (repeat n<br />         (setq l (cons (setq n (1- n))<br />                       l<br />                 )<br />         )<br />       )<br />     )<br />     (t<br />       (repeat (abs n)<br />         (setq l (cons (setq n (1+ n))<br />                       l<br />                 )<br />         )<br />       )<br />       (reverse l)<br />     )<br />   )<br /> )<br /> <br />   [/FONT]<br />

176489156

z做什么用来的

kkt123

做什么用来的;P