Loops/Continue: Difference between revisions

Line 196:
(print ", "))
(recur (rest xs))))
 
=={{header|COBOL}}==
<lang cobol> IDENTIFICATION DIVISION.
PROGRAM-ID. loop-continue.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 i PIC 99.
 
PROCEDURE DIVISION.
PERFORM VARYING i FROM 1 BY 1 UNTIL 10 < i
DISPLAY i WITH NO ADVANCING
 
IF FUNCTION MOD(i, 5) = 0
DISPLAY SPACE
EXIT PERFORM CYCLE
END-IF
 
DISPLAY ", " WITH NO ADVANCING
END-PERFORM
 
GOBACK
.</lang>
 
Note: COBOL does have a <code>CONTINUE</code> verb, but this is a no-operation statement used in <code>IF</code> and <code>EVALUATE</code> statements.
 
=={{header|ColdFusion}}==
Anonymous user