Time for an 2014 update…

2014-01-17 05:32:22 +00:00 · 2014-01-17 05:32:22 +00:00 · 09687c4926
commit 09687c4926
parent 372c577f83
2520 changed files with 34227 additions and 7318 deletions
--- a/Task/Pick-random-element/COBOL/pick-random-element.cobol
+++ b/Task/Pick-random-element/COBOL/pick-random-element.cobol
@ -0,0 +1,16 @@
+       >>SOURCE FREE
+IDENTIFICATION DIVISION.
+PROGRAM-ID. random-element.
+
+DATA DIVISION.
+WORKING-STORAGE SECTION.
+01  nums-area                           VALUE "123456789".
+    03  nums                            PIC 9 OCCURS 9 TIMES.
+
+01  random-idx                          PIC 9 COMP.
+
+PROCEDURE DIVISION.
+    COMPUTE random-idx = FUNCTION RANDOM(FUNCTION CURRENT-DATE (9:7)) * 9 + 1
+    DISPLAY nums (random-idx)
+    .
+END PROGRAM random-element.