総当たり戦の日程作成
Posted feedbacks - Perl
Perlが無かったので投稿します。 参考ページを見たのにこんなソースになりました。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #!/usr/bin/perl
use strict;
sub league{
my ($team) = shift;
my @rev = (2 .. $team, 2 .. $team);
for(my $h=0; $h<($team-1); $h++){
print "[1,$rev[$h]]";
for(my $i=1; $i<($team-1)/2; $i++){
print "[$rev[$i+$h],$rev[-($i-$h)]]";
}
print "\n";
}
}
league(6);
|

ryugate
#5661()
Rating2/2=1.00
see: カークマンの組分け
[ reply ]