Perl 程式設計/練習 6 答案

use warnings; use strict;

$| = 1;

print "請輸入遊戲次數："; 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 "已玩遊戲次數：$Num_Games\n";