RosettaCodeData/Task/Loops-For/Forth/loops-for-2.fth
2023-07-01 13:44:08 -04:00

5 lines
206 B
Forth

: limit_example
15 1 do r> r@ dup rot >r drop \ Bring limit on stack
. \ And print it
loop ;
\ Gforth and JSForth all work, SP-Forth brakes (different 'for' implementation?)