[求助]如何能在本函数内实现return的效果或者goto的效果呢？

highflybir · 发表于 2007-3-1 18:25:00

我们知道，C语言有return 关键字,return的效果是，当语句读到这个return时，函数或者程序就跳出所有语句，然后返回return语句后面的值，函数终结。而goto则是无条件转移到指定语句。
在lisp中，语句如果是层层嵌套的，括号内的语句没完，是不会跳转的，如何能像其他语言那样，在本函数内实现return的效果或者goto的效果呢？
我在lisp中测试了一下，发现很难实现这两种效果!
下面是我的例子:

(defun fff (x jump) ;;x这个参数可有可无
(cond
((= jump 10) (setq return 31))
((= jump 20) (setq return 21))
((= jump 30) (setq return z ))
(t
(setq i 0)
(while (< i 50)
(setq x 1)
(if (= i 10);;本想跳出while循环的，直接返回值
(setq jZ 10
return (fff x jZ)
)
)
(setq y 2)
(if (= jump 20);;没办法跳出去
(setq jZ 20
return (fff x jZ)
)
)
(setq z 31)
(if (= z 31);;没办法跳出去
(setq JZ 30
return (fff x JZ)
)
)
(setq i (1+ i))
)
(setq return 100)
)
)
)

各位能帮我想想办法，谢谢了！

秋枫 · 发表于 2007-3-1 19:57:00

本帖最后由作者于 2007-3-1 19:58:47 编辑

举个例子，演示如何跳出循环：

(defun demo (/ catchit i)
(setq catchit ;catchit可以在以后用相关函数判断循坏是否有中途跳出的
(vl-catch-all-apply
'(lambda ()
(setq i 0)
(repeat 1000 ;循环一千次
(setq i (1+ i))
(if (= i 10)
(exit) ;在第十次时跳出
)
)
)
)
)
(princ i)(princ)
)

无痕 · 发表于 2007-3-1 23:26:00

(setq k T i 0)
(while (and k1 (< i 1000))
...
(while (and k1 k2 ...)
...
(if ... (setq k1 nil))
(if ... (setq k2 nil))
)
)

highflybir · 发表于 2007-3-2 10:34:00

谢谢各位了，我原以为exit是跳出整个程序的。

龙龙仔 · 发表于 2007-3-2 12:22:00

AUTOLISP年代EXIT是跳出整个程序的,但VLISP年代多了vl-catch-all-apply才能中途跳出

mj0000 · 发表于 2012-8-13 10:26:37

留下足迹，收藏

账号		自动登录	找回密码
密码			注册

[求助]如何能在本函数内实现return的效果或者goto的效果呢？

浏览过的版块