... per line using a [do] ... [loop] 40 0 [do]    [i] dup ... [if] cr [then]    3 .r [loop] cr Nicely done, but with ... lose the data -------------------- With [do] [loop] write: ... [do] ( create and initialise ... the loop; [do] etc have to be defined; all interpret mode...can be used independently of loops, where data can be tucked...

... is not available in interpreter mode of course. ROLL is indispensable for using...char>lower over c! ( -- caddr ) char+ loop drop ; \ Compare string ca u with...... ca2 u2 f1 ca u ) loop 2drop ( -- fn ) ; \ skip over the first... [leave] [then] [i] 4 .r [loop] cr --------------------------------------------- Again it works with GForth...

... \ Display 0 to 39 with 10 integers per line using a [do] ... [loop] 40 0 [do]    [i] dup 10 mod 0=    [if] cr [then]    3 .r [loop] cr Nicely done, but with "marker" or "forget" there would be ... lay the problem this way: if anyone asks for run-time do-loop, what should we recommend him? -- CKOPO CE3OH...

...sod the psychological issues. \ Display 0 to 39 with 10 integers per line using a [do] ... [loop] 40 0 [do]    [i] dup 10 mod 0=    [if] cr [then]    3 .r [loop] cr Nicely done, but with "marker" or "forget" there would be less brackets, and it would be much simpler....

... for human to read, and not "each to his own". \ Display 0 to 39 with 10 integers per line using a [do] ... [loop] 40 0 [do]    [i] dup 10 mod 0=    [if] cr [then]    3 .r [loop] cr Nicely done, but with "marker" or "forget" there would be less brackets, and it would be much simpler.  So, ...

... others would put the whole definition into 1 line. Each to his own. : [+loop]  ( step -- )    >r 2 [nr>]              ( -- lim i )    2dup r@ ... \ Display 0 to 39 with 10 integers per line using a [do] ... [loop] 40 0 [do]    [i] dup 10 mod 0=    [if] cr [then]    3 .r [loop] cr Nicely done, but with "marker" or "forget" there would be...

..." be written on a single line? Lispniks have special "unless" name for it. : [+loop] ( step -- ) r 2 [nr>] ( -- lim i ) 2dup r@ + 2swap ( --...> \ Display 0 to 39 with 10 integers per line using a [do] ... [loop] 40 0 [do] [i] dup 10 mod 0= [if] cr [then] 3 .r [loop] cr Nicely done, but with "marker" or "forget" there would be ...

... speed things up by doing ROLL and -ROLL recursively like this and both about equally fast c.q. slow: : ROLL         DUP         IF      SWAP R 1- RECURSE SWAP EXIT         THEN         DROP     ;   ANS : -ROLL         DUP         IF      ROT R 1- RECURSE ...   THEN         DROP     ; <snip> Yes your -ROLL is certainly faster than mine. However...

...away here if you hate inefficiency! : -roll ( xu ... x0 u -- x0 xu ......dup 0 ?do dup r roll loop drop ; If you don't... things up by doing ROLL and -ROLL recursively like this and both... equally fast c.q. slow: : ROLL DUP IF SWAP R 1-... SWAP EXIT THEN DROP ; ANS : -ROLL DUP IF ROT R 1-...