[LISP函数]：替换表中第n项元素，n自0开始。

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun hao-lst-repl (lst pos new)
   
5.   (setq pos (1+ pos))
   
6.   (mapcar
   
7.     '(lambda (x)
   
8.        (if (zerop (setq pos (1- pos)))
   
9.          new
   
10.          x
    
11.        )
    
12.      )
    
13.     lst
    
14.   )
    
15. )
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun hao-lst-repl (lst pos new)<br />   (setq pos (1+ pos))<br />   (mapcar<br />     '(lambda (x)<br />        (if (zerop (setq pos (1- pos)))<br />          new<br />          x<br />        )<br />      )<br />     lst<br />   )<br /> )<br />   [/FONT]<br />