Re^2: Guess That Number

toolic For a reason I haven't discovered yet, when I change it to D and remove the + sign it won't receive any number...can you get the same results?

The early bird gets the worm but the second mouse gets the cheese.

pretendeavor

Comment on Re^2: Guess That Number

Replies are listed 'Best First'.

Re^3: Guess That Number
by toolic (Bishop) on Jul 09, 2009 at 20:09 UTC

test

Here is the code that works for me. Note that it does not have jdporter's bug fix.

use strict;
use warnings;

my $low = 1;        #Current low limit
my $high = 1000;     #Current high limit

#This is the secret number...Add one because we 
#don't need to wind up with a zero now do we?
my $goal = int(rand($high))+1; 

while (1) {
    print "Enter a number between $low and $high: ";

    #The answer from the user
    my $answer = <STDIN>;
    chomp($answer);

    if ($answer =~ /\D/) {
        print "Please enter a number only\n";
        next;
    }
    if ($answer == $goal) {
        print "Holy cow! You guessed it!\n";
        exit;
    }
    if (($answer < $low) || ($answer > $high)) {
        print "Please stay between $low and $high.\n";
        next;    
    }
    if ($answer < $goal) {
        $low = $answer;
    } else {
        $high = $answer;
    }
}
[download]

[reply]
[d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks