|
version 3.2, 2013/10/11 15:39:35
|
version 3.3, 2013/10/30 19:28:30
|
|
Line 19 $DEBUG=$opt_d;
|
Line 19 $DEBUG=$opt_d;
|
| $SHORT=$opt_s; |
$SHORT=$opt_s; |
| $MEDIUM=$opt_m; |
$MEDIUM=$opt_m; |
| |
|
| # Находим максимальный вопрос |
# Находим максимальный и минимальный вопрос и слегка подстраховываемся. |
| $MAXQUEST=1; |
$MINQUEST=1e99; |
| for (my $i=1; $i<=$ROUNDS; $i++) { |
$MAXQUEST=-1; |
| if ($MAXQUEST<$MAXQUEST[$i]) { |
for (my $r=1; $r<=$ROUNDS; $r++) { |
| $MAXQUEST=$MAXQUEST[$i]; |
if ($MINQUEST>$MINQUEST[$r]) { |
| |
$MINQUEST=$MINQUEST[$r]; |
| |
} |
| |
if ($MAXQUEST<$MAXQUEST[$r]) { |
| |
$MAXQUEST=$MAXQUEST[$r]; |
| } |
} |
| } |
} |
| |
if ($MINQUEST < 0 || $MAXQUEST < 0) { |
| |
die "Отрицательные номера вопросов не поддерживаются!\n"; |
| |
} |
| |
|
| my %teams; |
my %teams; |
| my @answers; |
my @answers; |
|
Line 44 if ($opt_t)
|
Line 49 if ($opt_t)
|
| # |
# |
| # Читаем ответы команд |
# Читаем ответы команд |
| # |
# |
| for (my $i=1; $i<=$ROUNDS; $i++) { |
for (my $r=1; $r<=$ROUNDS; $r++) { |
| foreach my $file ( @{$FILES[$i]} ) { |
foreach my $file ( @{$FILES[$r]} ) { |
| open (INFILE, $file); |
open (INFILE, $file); |
| readmail(\%teams); |
readmail(\%teams); |
| collect_answers(\%teams,\@answers); |
collect_answers(\%teams,\@answers); |
|
Line 61 if ($opt_o)
|
Line 66 if ($opt_o)
|
| die "Cannot open $opt_o\n" unless open(OUTFILE,">$opt_o"); |
die "Cannot open $opt_o\n" unless open(OUTFILE,">$opt_o"); |
| select OUTFILE; |
select OUTFILE; |
| } |
} |
| for ($i=1;$i<=$MAXQUEST;$i++) |
for ($i=$MINQUEST;$i<=$MAXQUEST;$i++) |
| { |
{ |
| print "\nВОПРОС $i:\n"; |
print "\nВОПРОС $i:\n"; |
| if ( ! $SHORT || countanswers(\%teams,\@answers,$i,'+') ) { |
if ( ! $SHORT || countanswers(\%teams,\@answers,$i,'+') ) { |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to collection.pl CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Local Repository] / processmail