Data commit

Task/Pick-random-element/CLU/pick-random-element.clu

@@ -0,0 +1,15 @@
+random_element = proc [T: type] (a: array[T]) returns (T)
+    return(a[array[T]$low(a) + random$next(array[T]$size(a))])
+end random_element
+
+start_up = proc ()
+    po: stream := stream$primary_output()
+    d: date := now()
+    random$seed(d.second + 60*(d.minute + 60*d.hour))
+
+    arr: array[string] := array[string]$["foo", "bar", "baz", "qux"]
+
+    for i: int in int$from_to(1,5) do
+        stream$putl(po, random_element[string](arr))
+    end
+end start_up