Pick random element: Difference between revisions
Add CLU
(Added solution for Action!) |
Not a robot (talk | contribs) (Add CLU) |
||
Line 470:
<lang Clojure>(nth coll (rand-int (count coll)))</lang>
=={{header|CLU}}==
<lang clu>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</lang>
{{out}}
<pre>qux
foo
qux
bar
foo</pre>
=={{header|COBOL}}==
| |||