version 3.2, 2013/10/11 15:39:35
|
version 3.3, 2013/10/30 19:28:30
|
Line 17 sub readhash
|
Line 17 sub readhash
|
{ |
{ |
print STDERR "\#$number. Score: $score\n",$answer; |
print STDERR "\#$number. Score: $score\n",$answer; |
} |
} |
if ($answer ne "" && $number >0) |
if ($answer ne "" && $number >= 0) |
{ |
{ |
$$answers[$number]->{$answer}->{score} = $score; |
$$answers[$number]->{$answer}->{score} = $score; |
%{$$answers[$number]->{$answer}->{teams}} = (); |
%{$$answers[$number]->{$answer}->{teams}} = (); |
Line 33 sub readhash
|
Line 33 sub readhash
|
} |
} |
if (/^\s*\*\*\*\s*$/) |
if (/^\s*\*\*\*\s*$/) |
{ |
{ |
if ($answer ne "" && $number >0) |
if ($answer ne "" && $number >= 0) |
{ |
{ |
$$answers[$number]->{$answer}->{score} = $score; |
$$answers[$number]->{$answer}->{score} = $score; |
} |
} |
Line 73 sub readmail
|
Line 73 sub readmail
|
$$table{$team}->{'numletters'}++; |
$$table{$team}->{'numletters'}++; |
if ($$table{$team}->{regnum} != $2) |
if ($$table{$team}->{regnum} != $2) |
{ |
{ |
print STDERR "Warning: Team $team uses registration nos. ", |
print STDERR "Warning: Team $team uses registration numbers ", |
$$table{$team}->{regnum}, " and $2!\n"; |
"'" . $$table{$team}->{regnum} . "'", " and '$2'!\n"; |
} |
} |
next; |
next; |
} |
} |
Line 129 sub canonize_answer
|
Line 129 sub canonize_answer
|
sub collect_answers |
sub collect_answers |
{ |
{ |
my ($teams,$answers) = @_; |
my ($teams,$answers) = @_; |
for ($i=1;$i<=$MAXQUEST;$i++) |
for ($i=$MINQUEST;$i<=$MAXQUEST;$i++) |
{ |
{ |
foreach $team (keys %$teams) |
foreach $team (keys %$teams) |
{ |
{ |