16 lines
570 B
Text
16 lines
570 B
Text
randomize ; Seed the RNG with current timestamp.
|
|
|
|
(
|
|
"It is certain" "It is decidedly so" "Without a doubt"
|
|
"Yes, definitely" "You may rely on it" "As I see it, yes"
|
|
"Most likely" "Outlook good" "Signs point to yes" "Yes"
|
|
"Reply hazy, try again" "Ask again later"
|
|
"Better not tell you now" "Cannot predict now"
|
|
"Concentrate and ask again" "Don't bet on it"
|
|
"My reply is no" "My sources say no" "Outlook not so good"
|
|
"Very doubtful"
|
|
) =phrases
|
|
|
|
(phrases dup size pred random get puts!) :answer
|
|
|
|
(true) ("Ask a question" ask answer) while
|