高级组7：打球

时间：2008-05-15 来源：starB6

#!/usr/bin/perl -w
#   使用三个数组。第一个数组存参赛的队伍，二存所有的比赛场次，三存随机的比赛场次序列
use strict; my @arrGame= ();
my @schedule = ();
my @arrplay=qw(A B C D E F); my $arrsize=@arrplay; for (my $i=0;$i<$arrsize-1;$i++)

{
     for (my $j=$i;$j<$arrsize-1;$j++)
     {
        my $arrelement=$arrplay[$i]. " VS." . $arrplay[$j+1];
        push (@arrGame,$arrelement);
     }
} my $forarrsize=@arrGame; #作为循环，使每个都循环一遍，取出数据。
my $forarrrandom=@arrGame; # 生成随机数

while ($forarrsize>0)
{
   my $low=0;
   my $high=$forarrrandom;
   my $arrrandom=int(rand($high)+$low);

if ($arrGame[$arrrandom] ne "Done")
{
     push (@schedule,$arrGame[$arrrandom]);
     $arrGame[$arrrandom]="Done";
     $forarrsize--;
}
}
print "The Schedule is :\n";
foreach my $t(@schedule)
{
   print "$t\n";
}

相关阅读更多 +