Loops/Foreach: Difference between revisions

Content added Content deleted
Line 1,280: Line 1,280:
<lang forth>: FOREACH ( array size XT --)
<lang forth>: FOREACH ( array size XT --)
>R \ save execution token on return stack
>R \ save execution token on return stack
CELLS BOUNDS \ covert addr len -> last first addresses
CELLS BOUNDS \ convert addr,len -> last,first addresses
BEGIN
BEGIN
2DUP > \ test addresses
2DUP > \ test addresses
Retrieved from "https://rosettacode.org/wiki/Loops/Foreach"