my $conteggio_trovato=0;
my $conteggio_hyper=0;
my $precision_glob=0;
my $precision=0;
my $average_precision=0;
my ($rank, $u, $relaz, $v, $score);
while (<INPUT>) {
    ($rank, $u, $relaz, $v, $score) = split;
    if ($relaz eq "hyper"){
        print "REl:".$relaz;
        $conteggio_hyper++;
        my $precision = $conteggio_trovato/$rank;
        print "precision:".$precision."\n";
        $precision_glob=$precision_glob+$precision;
    }
    $conteggio_trovato++;
  #  $precision_glob=$precision_glob+$precision;
}
#$precision_glob=$precision_glob+$precision;
$average_precision=$precision_glob/$conteggio_hyper;
#print "precision totale: ".$precision_glob."\n";
#print "Conteggio: ".$conteggio_hyper."\n";
print $u."\t"."hyper"."\t".$average_precision."\n";