#!/usr/bin/perl -w

use strict "refs";

#
# Script pour calcul des scores dans un concours de programmation
#

$debug = 0;

@resultatsFinaux = ();

while ($ligneEquipe = <STDIN>) {
    chomp($ligneEquipe);
    $ligneEquipe =~ s/\s(\s)+/ /g;
    print "ligneEquipe = $ligneEquipe\n" if $debug;
    my ($equipe, $nbSoumissions, @resultats) = split(/ /, $ligneEquipe);
    print "equipe = $equipe, nbSoumissions = $nbSoumissions, resultats = @resultats\n" if $debug;
    
    $nbCorrects = 0;
    $totalPenalite = 0;
    %temps = ();
    for( my $i = 0; $i < $nbSoumissions; $i++ ) {
	my $probleme = $resultats[2*$i];
	my $penalite = $resultats[2*$i+1];
	if ($penalite < 0) {
	    if (defined $temps{$probleme}) {
		$temps{$probleme} += 20;
	    } else {
		$temps{$probleme} = 20;
	    }
	} else {
	    $nbCorrects += 1;
	    $totalPenalite += (defined $temps{$probleme}?$temps{$probleme}:0) + $penalite;
	}
    }
    print "Resultat pour $equipe: $nbCorrects $totalPenalite\n" if $debug;
    push( @resultatsFinaux, [$equipe, $nbCorrects, $totalPenalite] );
}

if ($debug) {
    print "=====================\n";
    #print "contenu de resultats = @resultatsFinaux\n";
    for( my $i = 0; $i < $#resultatsFinaux+1; $i++ ) {
	print "$resultatsFinaux[$i]->[0] $resultatsFinaux[$i]->[1] $resultatsFinaux[$i]->[2]\n";
    }
}
@resultatsTries = sort comparer @resultatsFinaux ;

for( my $i = 0; $i < $#resultatsTries+1; $i++ ) {
    print "$resultatsTries[$i]->[0] $resultatsTries[$i]->[1] $resultatsTries[$i]->[2]\n";
}

sub comparer {
    print "comparer( $a, $b )\n" if $debug;
    if ($a->[1] == $b->[1]) {
	return( $a->[2] <=> $b->[2] );
    } else {
	return( -1 * ($a->[1] <=> $b->[1]) );
    }    
}
