[讨论]：有没有方法自定义一个任意个参数的函数?

wujimmy

像ssget  and or  + - * 等等函数的操作数都是可以是任意个的
用户自定义的函数有没有办法也是任意个操作数的?

zxq0220

如果最少用一个参数的话是可能实现的。

netbee

用ARX可以，LISP不行。
不过可以用一个折中的方法：
用表作为参数传递值。
这样在不改变原有函数引用的情况下进行对函数的优化或参数的修改等。

2. 
   
3. ;;(test '(1 2 3))
   
4. ;;(test '(1))
   
5. ;;(test '(1 2 3 4))
   
6. ;;(test nil)
   
7. 
   
8. (defun test(varl / var1 var2 var3 var4)
   
9.   (setq var1 (nth 0 varl)
   
10.            var2 (nth 1 varl)
    
11.            var3 (nth 2 varl)
    
12.            var3 (nth 2 varl)
    
13.    )
    
14.       (if (not var1)(setq var1 5));_这里的5为参数1的默认值
    
15.    (if (not var2)(setq var2 5));_这里的5为参数2的默认值
    
16.    (if (not var3)(setq var3 5));_这里的5为参数3的默认值
    
17.    (if (not var4)(setq var4 5));_这里的5为参数4的默认值
    
18. ;;   .......
    

<br /> ;;(test '(1 2 3))<br /> ;;(test '(1))<br /> ;;(test '(1 2 3 4))<br /> ;;(test nil)<br /> <br /> (defun test(varl / var1 var2 var3 var4)<br />   (setq var1 (nth 0 varl)<br />            var2 (nth 1 varl)<br />            var3 (nth 2 varl)<br />            var3 (nth 2 varl)<br />    )<br />       (if (not var1)(setq var1 5));_这里的5为参数1的默认值<br />    (if (not var2)(setq var2 5));_这里的5为参数2的默认值<br />    (if (not var3)(setq var3 5));_这里的5为参数3的默认值<br />    (if (not var4)(setq var4 5));_这里的5为参数4的默认值<br /> ;;   .......<br />

aeo

参数定义为表,表是没限制的.