Anonymous user
Loops/For with a specified step: Difference between revisions
Added COBOL example.
No edit summary |
(Added COBOL example.) |
||
Line 144:
(doseq [i (range 0 12 2)]
(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}}==
| |||