forth - 在Forth中实现求幂

Question

我正在使用Gforth尝试实现幂运算。从理论上讲，我了解基于堆栈的语言应该如何运行。但是，我在Gforth上实施它遇到了困难。

这是我现在所拥有的:

: myexp
    1 swap ?do rot dup * rot rot loop ;

但是，当我运行它时，我看到一个堆栈下溢，如下所示:

3 2 myexp
:1: Stack underflow
3 2 >>>myexp<<<
Backtrace:
$7F645EFD6EF0 rot
$2
$1

Gforth的循环结构在循环时是否操纵堆栈？

我对Forth的工作方式一无所知，因为我在网上看到的大多数循环示例都涉及到很多问题，并且使刚接触Forth的人感到困惑。

我的实现有什么问题？

Answer 1

1 swap错误。 ?do希望下限位于顶部
堆栈。

loop主体错误。这两个界限已从数据堆栈中删除，因此您无法使用rot访问幂基。

: myexp ( u1 u2 -- u3 ) \ u3 = u1^u2
   over swap 1 ?do over * loop nip ;