diff options
| author | Abigail <abigail@abigail.be> | 2021-03-15 16:52:19 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-03-15 20:21:48 +0100 |
| commit | a25700559b1eec24b8b2060d2b7c1c42b98cc6f8 (patch) | |
| tree | 8446b2b40cc5ee7edc40a0401dd8f63a654c96d6 | |
| parent | 8b3d81c89bc889c66d6ff014a777020ee6c44d39 (diff) | |
| download | perlweeklychallenge-club-a25700559b1eec24b8b2060d2b7c1c42b98cc6f8.tar.gz perlweeklychallenge-club-a25700559b1eec24b8b2060d2b7c1c42b98cc6f8.tar.bz2 perlweeklychallenge-club-a25700559b1eec24b8b2060d2b7c1c42b98cc6f8.zip | |
Cobol solution for week 104, part 1
| -rw-r--r-- | challenge-104/abigail/README.md | 1 | ||||
| -rw-r--r-- | challenge-104/abigail/cobol/ch-1.cb | 12 |
2 files changed, 13 insertions, 0 deletions
diff --git a/challenge-104/abigail/README.md b/challenge-104/abigail/README.md index 753280fd97..cd806d9580 100644 --- a/challenge-104/abigail/README.md +++ b/challenge-104/abigail/README.md @@ -26,6 +26,7 @@ even handle a single if statement. A single print statement is enough. * [Befunge-93](befunge-93/ch-1.bf93) * [bc](bc/ch-1.bc) * [C](c/ch-1.c) +* [Cobol](cobol/ch-1.cb) * [Forth](forth/ch-1.fs) * [Fortran](fortran/ch-1.f90) * [Lua](lua/ch-1.lua) diff --git a/challenge-104/abigail/cobol/ch-1.cb b/challenge-104/abigail/cobol/ch-1.cb new file mode 100644 index 0000000000..91cdc1874c --- /dev/null +++ b/challenge-104/abigail/cobol/ch-1.cb @@ -0,0 +1,12 @@ + IDENTIFICATION DIVISION. + PROGRAM-ID. FUCS. + + * + * See README.md + * + + PROCEDURE DIVISION. + DISPLAY "0 1 1 2 1 3 2 3 1 4 3 5 2 5 3 4 1 " WITH NO ADVANCING. + DISPLAY "5 4 7 3 8 5 7 2 7 5 8 3 7 4 5 1 6 " WITH NO ADVANCING. + DISPLAY "5 9 4 11 7 10 3 11 8 13 5 12 7 9 2 9". + STOP RUN. |