Data commit

Task/Pick-random-element/ALGOL-68/pick-random-element.alg

@@ -0,0 +1,23 @@
+# pick a random element from an array of strings #
+
+OP PICKRANDOM = ( []STRING list )STRING:
+BEGIN
+
+    INT number of elements = ( UPB list - LWB list ) + 1;
+    INT random element     =
+        ENTIER ( next random * ( number of elements ) );
+
+    list[ LWB list + random element ]
+END; # PICKRANDOM #
+# can define additional operators for other types of array #
+
+
+main: (
+
+    []STRING days = ( "Sunday",   "Monday", "Tuesday", "Wednesday"
+                    , "Thursday", "Friday", "Saturday"
+                    );
+
+    print( ( PICKRANDOM days, newline ) )
+
+)