Time for an 2014 update…

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.

Task/Pick-random-element/Common-Lisp/pick-random-element.lisp

@@ -0,0 +1,5 @@
+(defvar *list* '(one two three four five))
+
+(print (nth (random (length *list*)) *list*))
+(print (nth (random (length *list*)) *list*))
+(print (nth (random (length *list*)) *list*))

Task/Pick-random-element/Deja-Vu/pick-random-element.djv

@@ -1 +1 @@
-print choose [ "one" "two" "chicken" ]
+!print choose [ "one" "two" "chicken" ]

Task/Pick-random-element/GAP/pick-random-element.gap

@@ -0,0 +1,2 @@
+a := [2, 9, 4, 7, 5, 3];
+Random(a);

Task/Pick-random-element/Julia/pick-random-element.julia

@@ -0,0 +1,2 @@
+array = [1,2,3]
+array[rand(1:length(array))]