version 2.3, 2005/02/15 19:27:51
|
version 3.1, 2008/03/24 16:01:47
|
Line 42 for (my $i=1; $i<=$ROUNDS; $i++) {
|
Line 42 for (my $i=1; $i<=$ROUNDS; $i++) {
|
} |
} |
|
|
for (my $i=1; $i<=$ROUNDS; $i++) { |
for (my $i=1; $i<=$ROUNDS; $i++) { |
foreach my $file (split /\s+/, $FILES[$i]) { |
foreach my $file ( @{$FILES[$i]} ) { |
open (INFILE, $file); |
open (INFILE, $file); |
readmail(\%teams); |
readmail(\%teams); |
collect_answers(\%teams,\@answers); |
collect_answers(\%teams,\@answers); |
Line 67 for ($i=1;$i<=$MAXQUEST;$i++)
|
Line 67 for ($i=1;$i<=$MAXQUEST;$i++)
|
} |
} |
print "***\n"; |
print "***\n"; |
|
|
|
# |
|
# На всякий случай проверяем на наличие команд с дублирующимися номерами. |
|
# |
|
check_dup_numbers(\%teams); |