version 2.3, 2005/02/15 19:27:51
|
version 3.2, 2013/10/11 15:39:35
|
Line 1
|
Line 1
|
#!/usr/local/bin/perl |
#!/usr/bin/perl |
#$Id$ |
#$Id$ |
# |
# |
# |
# |
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); |