#perl
# Joshua Bolda, 2-20-03
# This is a guessing game using perl
# booyah!

# generate random number
$number = int (rand(21));
&ask;
print "\n";
print "thanks for playing!\n";
if ($guess = $number)
{print "you were correct!\n";}


#asks for the number
sub ask
{
print "enter a number (0-20) to guess ";
$guess = <STDIN>;
chomp($guess);
&check;
}




#checks guess to the number
sub check
{
if ($guess < $number)
{print "$guess is too low\n";
&ask;}

if ($guess > $number)
{print "$guess is too high\n";
&ask;}


}