#!/usr/local/bin/perl print < AI Olympics 2003 Scoring

2003 AI Olympics Current Standings



EOF
    ;

@events= <../events/*>;

%scores = ("gryffindor", 0, "slytherin", 0, "hufflepuff", 0, "ravenclaw", 0);
$totalscore = 0;

foreach $event (@events) {
    ($dir= $event)=~ s!^.*/([^/]*)!$1!;
    if (open(IN, "$event/info")) {
	while() {
	    if (/^([^:]*):(.*)/) {
		($type, $value) = ($1, $2);
		if ($type eq "SCORE") {
		    $value=~ s/^\s+//;  # strip the whitespace from the beginning
		    $value=~ s/\s+$//;  # and the end of the string
		    @places= split(/\s*\/\s*/, $value);
		    @points = (5, 3, 2, 1);
		    $i = 0;
                    $teamexisted = 0;
		    foreach $team (@places) {
                        $teamexisted = 1; 
			if ($team=~ /\s+/) {
			    @tied= split(/\s+/, $team);
			    if ( $#tied == 1 ) { #if 2 teams tied
				$tiedpoints = ($points[$i] + $points[$i + 1]) / 2;
				$i = $i + 2;
			    }
			    elsif($#tied == 2) { #if 3 teams tied
				$tiedpoints = ($points[$i] + $points[$i + 1] + $points[$i + 2]) /3;
				$i = $i + 3;
			    } else {
                              $tiedpoints = 11 / 4;                              $i = $i + 4;   
                            }
			    foreach $tiedteam (@tied) {
				$scores{$tiedteam} = $scores{$tiedteam} + $tiedpoints;
			    }
			}
			else {
			    $scores{$team} = $scores{$team} + $points[$i];
			    $i = $i + 1;
			}
		    }
                    if ($teamexisted == 1)
                    {
                      $totalscore = $totalscore + 11;
		    }

		}
	    }
	}
    }
}

if ($totalscore != 0) {
    foreach $team (keys %scores) {
	$scores{$team} = $scores{$team};
#	$scores{$team} = ($scores{$team} * 100) / $totalscore;
	$scores{$team}=~ s/^([^\.]*)\..*/$1/;
    }
}

$totalbattles = $totalscore / 11;

print <
 
  Total Battles 
  Points Won


EOF
    ;
print( " $totalbattles");
print("  
$scores{gryffindor}");
print( "  $scores{slytherin}");
print( " $scores{hufflepuff}");
print( " $scores{ravenclaw}");

print <











A note on scoring


Each event is worth a total of 11 points.




First Place: 5 points


Second Place: 3 points


Third Place: 2 points


Fourth Place: 1 point




If there is a tie, the total number of possible points are divided between the 
tied teams. 


Note that fractions in the total number of points are not displayed, but they
are accumulated. 






EOF
;