19 lines
640 B
Factor
19 lines
640 B
Factor
USING: io kernel random sequences ;
|
|
IN: rosetta-code.magic-8-ball
|
|
|
|
CONSTANT: phrases {
|
|
"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"
|
|
}
|
|
|
|
"Please enter your question or a blank line to quit." print
|
|
|
|
[ "? : " write flush readln empty? [ f ]
|
|
[ phrases random print t ] if ] loop
|