### Re^4: Number Guessing Game

by randomhero1270 (Novice)
 on Sep 23, 2012 at 18:17 UTC ( #995228=note: print w/replies, xml ) Need Help??

in reply to Re^3: Number Guessing Game

I made it stop guessing zero. I just don't really understand how to set a new minimum or maximum and have it still guess a random number. Updated code below

use strict; my (\$number, \$new_guess, \$my_hint, @guesses); my \$range = 9; my \$count = 1; my \$number = 1 + int rand 10; #min of 1 and high of 10, range does 0-g +iven int so i made the range 9 (0-9) and added one to it -> (1-10) print "My guess is: \$number \n"; print "High, low, or right?\n"; while(\$my_hint ne "right"){ chomp(\$my_hint = <STDIN>); @guesses[\$count] = \$my_hint; if (\$my_hint eq "low"){ \$new_guess = ((1 + int rand 10); print "I guess: " . \$new_guess . "\n"; print "High, low, or right?\n"; } elsif (\$my_hint eq "high"){ \$new_guess = (1 + int rand 10); print "I guess: " . \$new_guess . "\n"; print "High, low, or right?\n"; } elsif (\$my_hint eq "right"){ print "It took me " . \$count . " tries\n"; } else{ print "What? Am I high, low, or right?\n"; } \$count++; }

Create A New User
Node Status?
node history
Node Type: note [id://995228]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2017-08-18 19:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Who is your favorite scientist and why?

Results (308 votes). Check out past polls.

Notices?