Loops/Continue: Difference between revisions

=={{header|SNOBOL4}}==

SNOBOL4 has no looping statements or conditional statements. Indeed the only branching facilities it has are:

* Unconditional branch to label. <code>:(LABEL)</code>

* Branch to label on success. <code>:S(LABEL)</code>

* Branch to label on failure. <code>:F(LABEL)</code>

(The success/failure labels can both be in the branching clause.)

Despite this, any looping structure can be performed by careful use of these.

<syntaxhighlight lang="snobol4">

line =

i = 1

LOOP le(i, 10) :F(LOOP.END)

line = line i

eq(remdr(i, 5), 0) :S(LOOP.OUT)

line = line ', ' :(LOOP.INC)

LOOP.OUT OUTPUT = line

line =

LOOP.INC i = i + 1 :(LOOP)

LOOP.END OUTPUT = line

END

</syntaxhighlight>

{{Out}}

<pre>

$ snobol4 junk.sno

1, 2, 3, 4, 5

6, 7, 8, 9, 10

</pre>