RosettaCodeData/Task/Pick-random-element/Joy/pick-random-element.joy

8 lines
225 B
Plaintext

DEFINE pick_random == dup size rand swap rem at.
(* initialize random number generator *)
time 89 * clock + srand
["zero" "one" "two" "three" "four" "five" "six" "seven" "eight" "nine" "ten" "eleven" "twelve"]
pick_random.