Rosetta Code

Guess the number/With feedback (player): Difference between revisions

Page Discussion

Guess the number/With feedback (player) (view source)

Revision as of 08:02, 8 September 2011

329 bytes removed ,  12 years ago
→‎{{header|Perl}}
No edit summary
Line 705:
my $max = 99;
 
print "=>> Think of a number between $min and $max and I'll guess it!\n\n";
Press <ENTER> when are you ready... ";
 
<STDIN>;
my $x = int(rand $max) + $min;▼
 
▲my $x guess = int(rand $max) + $min;
my $tries = 0;
 
sub question {
my $xguess = shift();
print "\n=>> My guess is: $xguess. Is your number higher, lower or equal? (h/l/e)\n> ";
++$tries;
}
 
question $xguess;
 
while (1) {
Line 722 ⟶ 725:
 
if (lc substr($score, 0, 1) eq 'h') {
$min = $xguess + 1;
}
elsif (lc substr($score, 0, 1) eq 'l') {
$max = $xguess;
}
elsif (lc substr($score, 0, 1) eq 'e') {
Line 735 ⟶ 738:
}
 
$xprint ="\nI gave up...\n" and last if int(($max +<= $min) / 2);
 
$guess = int(($max + $min) / 2);
question $x;▼
}</lang>
 
▲ question $xguess;
<pre>Think of a number between 1 and 99 and I'll guess it!
}
 
</pre>
=>> My guess is: 73. Is your number higher, lower or equal? (h/l/e)
> l
=>> My guess is: 37. Is your number higher, lower or equal? (h/l/e)
> h
=>> My guess is: 55. Is your number higher, lower or equal? (h/l/e)
> l
=>> My guess is: 46. Is your number higher, lower or equal? (h/l/e)
> l
=>> My guess is: 42. Is your number higher, lower or equal? (h/l/e)
> e
 
I knew it! It took me only 5 tries.</pre>
 
=={{header|Perl 6}}==
Trizen
2,747

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/163001"