Názor k článku Programovací jazyk Forth a zásobníkové procesory (5) od Viktor Kadlec - Tady bych nijak nepremyslel, budme radi, ze aspon...

Tady bych nijak nepremyslel, budme radi, ze aspon muzeme dostat iterator aktualni smycky do zasobniku. Pokud nebudeme plnit zasobnik, je to bez problemu. Pokud ano, budeme muset porad swapovat nebo rotovat :-( , zalezi na zpusobu plneni zasobniku. Par prikladu:
: cykl 5 0 do cr i 3 0 do dup . loop drop loop cr ; cykl
( tato veticka vypise pet radku, na kterych se znazorni trikrat po sobe se opakujici obsah iteratoru, je zde take videt, ze to budeme po sobe uklizet )
: cykl 6 1 do cr i i i + i do dup 10 * i + . loop drop loop cr ; cykl
( Po zadani dostaneme na vystupu trojuhelnik z dvojcifernych cisel. Prvni cifra je vnejsi iterator a druha je vnitrni. )
: cykl 4 1 do i 5 0 do dup 10 * i + swap loop drop loop ; cykl
( nyni mame v zasobniku 15 hodnot, po iteratoru ani stopy )
: cykl 4 1 do cr 5 0 do . loop loop cr ; cykl
( pro prehlednost si muzeme obsah zasobniku prohlednout pomoci stejneho cyklu )
... radost pracovat ve Forthu :-)