forth - 如何在 Gforth 中编写 while() 循环

Question

我想在 Gforth 中写一个 while() 循环.不幸的是，the only tutorial online由于缺乏示例而没有用，并且计数循环上的示例(我不是在寻找什么)看起来根本不同。

有哪些具体例子可以说明如何表示这样的事情？

while (x > 3) { print(x); x--; }

或者真的，只是一些具体的方式来表示任何形式:

while (predicate) { expression(s) }

Answer 1

您的第一段代码转换为:

\ Assuming x is on the top of the stack.
begin dup 3 > while dup . 1- repeat

\ Or if x is in memory.
begin x @ 3 > while x ? -1 x +! repeat

第二个:

begin predicate while expressions repeat