Perl
GetWild

Get,GetGetGetWildAndTough! Perl版

More than 1 year has passed since last update.

コード

my $GET = 'Get';
my $WILD = 'Wild';
my $AND = 'and';
my $TOUGH = 'Tough';

my @GetWildAndTough = ($GET, $WILD, $AND, $TOUGH);
my @GetChanceAndLuck = (9, 9, 9);

while (1) {
    my $gwat = int(rand(3));
    print $GetWildAndTough[$gwat] . "\n";
    shift(@GetChanceAndLuck);
    push(@GetChanceAndLuck, $gwat);
    my $dream = 1;
    while(my ($T, $N) = each @GetChanceAndLuck){
        if ($T != $N) {
            $dream = 0;
        }
    }
    last if ($dream);
}
print $GetWildAndTough[3] . "\n";
exit;

出力

Wild
Get
and
Get
and
Get
and
Get
and
Get
Get
Wild
and
Tough

なにこれ?

ひとりでは消せない痛み

仕様

「Get」 「Wild」 「and」 をランダムに出力します。
「Get Wild and」の順に出力されたら「Tough」と出力して終了します。

元ネタ