#!/afs/athena/contrib/perl/p

@warriors =@ARGV;
@opponents = @ARGV;

foreach $w (@warriors) {
    $warrior = $w;
    shift(@opponents);
    foreach $owarrior (@opponents){
	print("Battling $warrior vs. $owarrior\n");
	$battle = `/afs/sipb/project/corewars/koth/koth -rounds 100 $warrior $owarrior`;
	@scores=split(/[ \n]/, $battle);
	$wins = $scores[0];
	$ties = $scores[1];
	$owins = $scores[3];
	$rating{$warrior} += (3*int($wins));
	$n = (3*int($wins));
	$rating{$warrior} += (int($ties));
	$rating{$owarrior} += (int($ties));
	$rating{$owarrior} += (3*int($owins));
	$t++;
    }
}
print("$t\n");
while(($warr, $score)=each %rating){
    $score /= ($t*3);
    $score = int($score);
    print("$warr: $score\n");
}