1	acacia-n	hyper	tree-n	0.838364743354488
2	acacia-n	hyper	plant-n	0.740581661563839
3	acacia-n	mero	wood-n	0.687569086370938
4	acacia-n	mero	flower-n	0.650909477491374
5	acacia-n	coord	oak-n	0.610092594991099
6	acacia-n	coord	pine-n	0.537690234715029
7	acacia-n	mero	branch-n	0.510899195919917
8	acacia-n	mero	root-n	0.491198721010063
9	acacia-n	coord	willow-n	0.481680704877001
1	ant-n	hyper	animal-n	0.634580215370739
2	ant-n	hyper	insect-n	0.53621081509255
3	ant-n	mero	head-n	0.535980012877533
4	ant-n	mero	body-n	0.505827598873949
5	ant-n	coord	bee-n	0.481918895790599
1	apricot-n	hyper	fruit-n	0.76748797529242
2	apricot-n	coord	apple-n	0.685155565667883
3	apricot-n	mero	juice-n	0.560337418489082
4	apricot-n	coord	banana-n	0.559525300446683
##</code><code>##

acacia-n hyper 1
ant-n hyper 1
apricot-n hyper 1
##</code><code>##



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";