Loops/For with a specified step: Difference between revisions
Content added Content deleted
No edit summary |
(Added COBOL example.) |
||
| Line 144: | Line 144: | ||
(doseq [i (range 0 12 2)] |
(doseq [i (range 0 12 2)] |
||
(println i))</lang> |
(println i))</lang> |
||
=={{header|COBOL}}== |
|||
<lang cobol> IDENTIFICATION DIVISION. |
|||
PROGRAM-ID. Display-Odd-Nums. |
|||
DATA DIVISION. |
|||
WORKING-STORAGE SECTION. |
|||
01 I PIC 99. |
|||
PROCEDURE DIVISION. |
|||
PERFORM VARYING I FROM 1 BY 2 UNTIL 10 < I |
|||
DISPLAY I |
|||
END-PERFORM |
|||
GOBACK |
|||
.</lang> |
|||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||