随机猜数

作者：Eric Hodges

在这个活动中，您将创建一个游戏。好吧，也许这不是您见过的最有趣的游戏（嘿，毕竟这是初学者级别），但它仍然是一个游戏。在这个游戏中，您的脚本将生成一个介于 1 到 50 之间的随机数，用户需要猜出该数字。

对于 Windows PowerShell 和 Perl，这将是一个标准的命令行脚本。该脚本将显示一条消息，要求用户输入一个介于 1 到 50 之间的数字。该脚本会将用户提供的数字与随机生成的数字进行比较。如果数字不匹配，脚本将显示一条消息，指示猜测是太高还是太低，并要求他们再次猜测。

当用户猜对时，脚本将显示随机数以及猜对所需次数。此时游戏结束，脚本也将结束。

http://web.archive.org/web/20081210124629/http://www.microsoft.com/technet/scriptcenter/funzone/games/games08/bevent8.mspx

源代码：event008-eric256.pl

use v6;

my $num = (1..50).pick[0];
my $guesses = 0;
my $guess = 0;


loop {
    $guess = prompt("Pick a number between 1 and 50: ");
    $guesses++;
    given $guess {
        when $num {
            say "You guessed correctly in {$guesses} guesses!";
            last;
        };
        when $_ < $num {say "You guessed too low."};
        when $_ > $num {say "You guessed too high."};
    }
}