PC/FORTH 循环

body, table{font-family: 微软雅黑}
table{border-collapse: collapse; border: solid gray; border-width: 2px 0 2px 0;}
th{border: 1px solid gray; padding: 4px; background-color: #DDD;}
td{border: 1px solid gray; padding: 4px;}
tr:nth-child(2n){background-color: #f8f8f8;}

有限循环  DO  ...   LOOP

 

      先在   DO   之前指明循环终值和循环初值，把需要重复执行的词放在  DO  和   LOOP   之间。

      循环中 循环终值 叫做"循环限"( Limit )，循环初值 叫做"循环下标" ( Index )。因此有限循环的一般格式：  Limit  Index  DO ……  LOOP

//循环下标和循环限可取的范围 -32768 ~ +32767

LOOP每次循环都是 +1 ； 可以在 I 操作的时候和数据栈中的数据做操作

---

循环中的    IF   条件

  循环语句中的循环下标可作为 IF 语句的条件，这时你可以使某些操作在循环中的某个特定时刻执行。

---

嵌套循环

一个 DO ... LOOP  循环中嵌入另外一个  DO ... LOOP  循环

一个 DO 循环嵌套另外一 DO 循环

//注意，I 和 J  ，J 表示的是外层循环下标，I 表示的是内存循环下标  

J 表示表中每个数占据的位置，U.R 表示打印无符号数，向右对齐。

---

+LOOP

设置不让循环每次只+1；

:  PENTAJUMPS      50   0   DO   I   .   5   + LOOP ;    //每次下标加5

: FALLING      -10   0   DO   I   .   -1   +LOOP ;  

+LOOP  的增量可以来自任何地方，只要执行到  +LOOP  的时候数据处于栈顶。

定义循环的时候可以不用给出循环上下限和步长；

:  INC-CONT      DO   I   .   DUP   +LOOP  DROP;

也可以在循环过程中每次改变循环步长

:  DOUBLING      32767   1   DO   I   .   I   +LOOP ;

注意： DO ... LOOP  循环至少执行一次，这两个词都是转义命令，因此只有在定义内部才能被执行。

tips：如何清除堆栈？   如果栈中无意存放了许多无用数据，可以让FORTH解释一个不存在的词，这时候文本解释程序将执行词 ABORT ，从而清除两栈；

如果步长是负数，那么循环可以遍历的范围就是 [上限，下限 ]；相反，如果步长是正数，循环范围就就是 [ 下限，上限）；

---

不定循环

有循环上限的循环叫做有限循环。不定循环将无限重复或直到某一事件发生为止。

BEGIN ... UNTIL    循环重复执行或到某一条件为“真”时结束。当执行UNTIL时，当堆栈顶为假，就返回到BEGIN；

用法：BEGIN     xxx   f   UNTIL ;   表示重复执行XXX ，直到 f 标志为真，如果为假就一直执行；
BEGIN   XXX   f   WHILE   YYY   REPEAT    只要 YYY 为真就重复执行 XXX 否则结束循环。

BEGIN XXX AGAIN ;     AGAIN 和 REPEAT 总是返回到 BEGIN 。

这几个循环都和IF类似，xxx代表一段代码，不单单只一个词；f 表示一个逻辑操作，就像 0< 什么的。UNTIL 后面可以执行其他的操作。

---

不定的有限循环

如果要在循环中，尽管循环下标没有达到循环限，但当某种条件状态发生变化时便要求退出循环。

LEAVE , 这个词能够使循环执行下一个 LOOP 或 +LOOP 时立即退出。循环中遇到 LEAVE 的时候就会让循环下标等于循环限，下次执行 LOOP 时就会终止循环。

//我用的版本的 FORTH 中是   CLEARSCREEN   , QUIT  是清除返回堆栈，设置解释状态，接受从当前输入设备来的新输入。eg :   :  100STARS      CLEARSCREEN  100  0  DO  STAR  LOOP ;