Loops/Continue: Difference between revisions

Content added Content deleted

Inline

@@ Line 195: / Line 195: @@
         (println)
         (print ", "))
-    (recur (rest xs))))
+    (recur (rest xs))))</lang>
+=={{header|COBOL}}==
+<lang cobol>       IDENTIFICATION DIVISION.
+       PROGRAM-ID. loop-continue.
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+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}}==