Re: guessing script

[James Edward Gray II]

On Apr 15, 2004, at 1:24 PM, Greg Donald wrote:

On Thursday 15 April 2004 12:43 pm, James Edward Gray II wrote:
Looks like you already got some good answers.  Let me add a few minor
comments...
Thanks for you comments.  Is this the best way then?  Seems to work, 
but I'm
curious what could be any better..
I think those changes are for the better, yes.

James

#!/usr/bin/env perl

use Math::Random;
use warnings;
use strict;
my $answer = undef;

sub run {
  my $solution = random_uniform_integer(1, 1, 100);
  my $guess = undef;
  my $tries = 0;
  do {
    print "Guess (1-100)?\n";
    chomp($guess = <STDIN>);
    $tries++;
    if ($guess > $solution) {
      print "$guess is too HIGH!\n";
    } elsif ($guess < $solution) {
      print "$guess is too LOW!\n";
    }
  } while ($guess != $solution);
  my $try_word = $tries == 1 ? "try" : "tries";
  print "$guess is correct, YAY! It only took you $tries $try_word!\n";
}
do {
  run();
  print "Play again? ";
  chomp($answer = <STDIN>);
} while (lc($answer) eq 'y');
--
Greg Donald
[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>




--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>