swh:1:snp:c3e60ef3910bf67fe880e1cb5fc8a4d005b8093a
Tip revision: 5acf83710cbd521310f3703dd22c59c1891b9574 authored by wtwhite on 16 March 2015, 06:47:49 UTC
Code for the Speedy Colorful Subtrees paper
Code for the Speedy Colorful Subtrees paper
Tip revision: 5acf837
count_edges_from_vertex_to_same_colour.pl
#!/usr/bin/perl
use strict;
#use warnings;
chomp(my $nV = <>);
chomp(my $nE = <>);
chomp(my $nC = <>);
my @colFor;
for (1 .. $nV) {
chomp($_ = <>);
my ($v, $c) = split;
$colFor[$v] = $c;
}
my @destColours;
while (<>) {
chomp;
my ($u, $v, $w) = split;
++$destColours[$u]{$colFor[$v]};
}
my @freq;
for (my $i = 0; $i < $nV; ++$i) {
foreach my $c (keys %{$destColours[$i]}) {
++$freq[$destColours[$i]{$c}];
}
}
print "# edges\tFreq\n";
for (my $i = 0; $i < @freq; ++$i) {
print "$i\t$freq[$i]\n";
}