[LISP函数]：lisp有类似于VB中的ParamArray功能吗

qqq888

lisp有类似于VB中的ParamArray功能吗
VB中子过程可以通过使用ParamArray使过程的参数个数灵活可变，lisp能做到吗

Quelea

可以传递表。

XDSoft

最初由 qqq888 发布
[B]lisp有类似于VB中的ParamArray功能吗
VB中子过程可以通过使用ParamArray使过程的参数个数灵活可变，lisp能做到吗 [/B]

LISP的表是非常灵活的结构，你可以把参数用表，然后程序里面判断表的长度，依次处理：

2. 
   
3. [FONT=courier new]
   
4. (defun abc (el)
   
5.    (if (and el (listp el))  ;;判断参数是否是表
   
6.       (progn
   
7.            (setq len (length el)) ;;表长度
   
8.      (foreach n el
   
9.                 ..........  ;;对参数处理
   
10.          )
    
11.       )
    
12.    )
    
13. )[/FONT]

<br /> [FONT=courier new]<br /> (defun abc (el)<br />    (if (and el (listp el))  ;;判断参数是否是表<br />       (progn<br />            (setq len (length el)) ;;表长度<br />      (foreach n el <br />                 ..........  ;;对参数处理<br />          )<br />       )<br />    )<br /> )[/FONT]

Quelea

2. 
   
3. [FONT=courier new]
   
4. (defun Mean (numlst)
   
5.   (/ (apply '+ numlst)
   
6.      (float (length numlst))
   
7.   )
   
8. )
   
9. 
   
10. ;;;测试
    
11. ;;; _$ (mean '( 1 2 3 4 5 6 7 8 9 0))
    
12. ;;; 4.5
    
13. ;;; _$ (mean '( 45.0 35.0))
    
14. ;;; 40.0
    
15. ;;; _$ (mean '( 10 50 49 45.0 35.0))
    
16. ;;; 37.8
    
17. [/FONT]

<br /> [FONT=courier new]<br /> (defun Mean (numlst)<br />   (/ (apply '+ numlst)<br />      (float (length numlst))<br />   )<br /> )<br /> <br /> ;;;测试<br /> ;;; _$ (mean '( 1 2 3 4 5 6 7 8 9 0))<br /> ;;; 4.5<br /> ;;; _$ (mean '( 45.0 35.0))<br /> ;;; 40.0<br /> ;;; _$ (mean '( 10 50 49 45.0 35.0))<br /> ;;; 37.8<br /> [/FONT]

XDSoft

QL妹妹的例子很好，很简洁，体现了LISP的灵活，当然用遍历表，求也一样。

LISP是表处理语言，处理表是LISP的擅长，大家好好看看函数：APPLY,MAPCAR,FOREACH,LAMBDA,ASSOC,MEMBER,CONS,APPEND,LIST这几个函数，灵活掌握他们，才是LISP应用熟练的标志。

下面我举个例子：求两个长度等表的对于元素的和：

2. 
   
3. [FONT=courier new]
   
4. (mapcar '+ el1 el2)
   
5. 
   
6. el1='(2 4 5)
   
7. el2='(3 5 6)
   
8. 
   
9. 结果＝'(5 9 11)
   
10. 
    
11. [color=blue]再如：已经一个顶点表，要画一条封闭的POLYLINE线。[/color]
    
12. 
    
13. (apply 'command (cons "pline" plist))
    
14. (command "c")
    
15. 
    
16. [color=blue]再如，删除表中的一个元素[/color]
    
17. 
    
18. el--表
    
19. val-元素值
    
20. 
    
21.   (append
    
22.     (reverse (cdr (member val (reverse el))))
    
23.     (cdr (member val el))
    
24.   )
    
25. 
    
26. [/FONT]

<br /> [FONT=courier new]<br /> (mapcar '+ el1 el2)<br /> <br /> el1='(2 4 5)<br /> el2='(3 5 6)<br /> <br /> 结果＝'(5 9 11)<br /> <br /> [color=blue]再如：已经一个顶点表，要画一条封闭的POLYLINE线。[/color]<br /> <br /> (apply 'command (cons "pline" plist))<br /> (command "c")<br /> <br /> [color=blue]再如，删除表中的一个元素[/color]<br /> <br /> el--表<br /> val-元素值<br /> <br />   (append<br />     (reverse (cdr (member val (reverse el))))<br />     (cdr (member val el))<br />   )<br /> <br /> [/FONT]

qqq888

谢谢，我懂了，感谢两位版主的热心指点