Perl Programming/Exercise 6 Answers

use warnings; use strict;

$| = 1;

print "Enter number of games to play: "; chomp(my $Num_Games = <STDIN>);

my $Num_Guesses = 0; for my $gameno (1 .. $Num_Games) {

       my $number = 1 + int rand 100;

       my $guess;
       do {
               print "Enter guess from 1 to 100: ";
               chomp($guess = <STDIN>);
               ++$Num_Guesses;

               if ($guess < $number) {
                       print "Higher!\n";
               } elsif ($guess > $number) {
                       print "Lower!\n";
               }
       } until $guess == $number;

       print "Correct!\nAverage guesses per game: ", 
       $Num_Guesses / $gameno, "\n\n";

}

print "Games played: $Num_Games\n";