13 lines
520 B
Perl
13 lines
520 B
Perl
|
@a = ('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');
|
||
|
|
|
||
|
|
while () {
|
||
|
|
print 'Enter your question:';
|
||
|
|
last unless <> =~ /\w/;
|
||
|
|
print @a[int rand @a], "\n";
|
||
|
|
}
|