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

highflybird · 发表于 2007-3-1 18:25:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我们知道，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 20:13:41

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

[FONT=courier new]
(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)
)[/FONT]

highflybird · 发表于 2007-3-2 10:31:53

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

zml84 · 发表于 2007-3-2 11:13:58

1.楼主的意思不大明白。
2.作为一种面向过程的语言，LISP提供了顺序、条件、循环、分支四种结构。
对于GOTO跳转语句，其需要跳转位置标识，而LISP却是以表为结构，故该功能不能实现。
但可以通过函数调用的方法变相实现各种需求。
3.楼主提供的代码很难懂，根据我的理解，改动后如下，以便讨论：
[PHP]
(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)
   (setq jZ    10
         i 100
         return (fff x jZ)
   )
   (progn
      (setq y 2)
      (if (= jump 20)
   (setq jZ    20
         i 100
         return (fff x jZ)
   )
   (progn
      (setq z 31)
      (if (= z 31)
   (setq JZ    30
         i 100
         return (fff x JZ)
   )
      )
   )
      );结束(if (= jump 20)
   )
      );结束(if (= i 10)
   )

)
)
)
[/PHP]
<br>
2007-03-22 15;40
前几天翻书发现LISP语言是提供有GOTO这个函数的，不知为何Alisp却把它给剔除掉了。

aeo · 发表于 2007-3-3 11:36:23

(setq is t)
(while (and is (...))
(cond ( (..) (setq is nil) ) ;;跳出了
((..)(..)
)
)

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子