#!/usr/local/bin/perl print < AI Olympics 2001 



EOF
    ;

# By the way, if you are thinking of using this file as a guide for
# any future files, don't.  use last year's instead.  

# find the number of events that have been played and the score
# for each team.  Yeow this is harder than it looks!
@events= ;

%scores = ("china", 0, "france", 0, "italy", 0, "japan", 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;
		    foreach $team (@places) {
			if ($team=~ /\s+/) {
			    @tied= split(/\s+/, $team);
			    if ( $#tied == 2 ) {
				$tiedpoints = ($points[$i] + $points[$i+1]) / 2;
				$i = $i + 2;
			    }
			    else {
				$tiedpoints = ($points[$i] + $points[$i+1] + $points[i+2]) /3;
				$i = $i + 3;
			    }
			    foreach $tiedteam (@tied) {
				$scores{$tiedteam} = $scores{$tiedteam} + $tiedpoints;
			    }
			    $i = $i + 2;
			}
			else {
			    $scores{$team} = $scores{$team} + $points[$i];
			    $i = $i + 1;
			}
		    }
		    $totalscore = $totalscore + 11;

		}
	    }
	}
    }
}

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

$totalbattles = $totalscore / 11;


print <
 
  Total Battles 
  Percent Won


EOF
    ;
print( " $totalbattles ");
print(" $scores{japan}%");
print( " $scores{china}%");
print( " $scores{france}%");
print( " $scores{italy}%");

print <







 A note on scoring 





 














Olympic Chairperson/MC: Christine Alvarado



EOF
;