8 lines
225 B
Text
8 lines
225 B
Text
|
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.
|