Forth 中有条件退出的说法吗？

如何解决Forth 中有条件退出的说法吗？

在 Forth 中，如果栈顶为零，是否有一个常用词来有条件地退出过程（返回）？我正在考虑在递归过程中使用它而不是 IF。

解决方法

有一个普遍实现的词叫做“?exit”，它在非为零时退出。你必须这样做：

0= ?exit

得到你想要的。如果你的 Forth 缺少这个，你可以自己定义，但是严格来说需要了解 Forth 的实现细节才能正确实现。但是，在大多数 Forth 上，以下代码将起作用：

   : ?exit if rdrop exit then ;
   : ?exit if r> drop exit then ; ( if "rdrop" is not available )
   : -?exit 0= if rdrop exit then ; ( what you want )

大多数 Forth 实现只有一个值用于每个函数调用，因此这将适用于大多数。

还有一个更便携的版本：

: ?exit postpone if postpone exit postpone then ; immediate
: -?exit postpone 0= postpone if postpone exit postpone then ; immediate

尽管我注意到并非所有 Forth 实现都实现了“推迟”，而是可能使用“[编译]”之类的词。

,

可移植的实现：

: ?exit ( x -- ) postpone if postpone exit postpone then ; immediate
: 0?exit ( x -- ) postpone 0= postpone ?exit ; immediate

此实现适用于任何标准 Forth 系统。