use strict;
use warnings;

my %red;

print "Indica el numero de nodos\n";

chomp (my $nodos = <DATA>);

#aqui se declara la matriz una vez que se sabe el numero de nodos
print "Introduzca las conecciones de los nodos.\n";

for my $n (0 .. $nodos - 1) {
    for my $i (0 .. $nodos - 1) {
        if ($n != $i) {
            chomp ($red{$n}{$i} = <DATA>);
        }
    }
}

for my $n (0 .. $nodos - 1) {
    my $aristas = 0;

    for my $i (0 .. $nodos - 1) {
        next if $n == $i;
        
        ++$aristas if $red{$n}{$i} == 1;
    }

    print <<MSG;
la posicion del nodo en escala vector, numero de aristas y coeficiente de clustering respectivamente:
$n
aristas: '$aristas'
MSG

    if ($aristas == 1 || $aristas == 0) {
        print "0\n";
        next;
    }

    my $areales = 0;

    for my $j (0 .. $nodos - 1) {
        next if $n == $j;

        for my $l (0 .. $nodos - 1) {
            next if $j == $l || $l == $n;
            
            $areales++ if $red{$j}{$l} == 1;
        }
    }

    $areales = $areales / 2;
    my $clust = (2 * $areales) / ($aristas * ($aristas - 1));

    print "clust: $clust";
}


__DATA__
2
1
0
0
1