CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Beginner: [SOLVED] Finding connected components in a graph.: Edit Log



zing
Novice

Oct 2, 2012, 10:42 AM


Views: 1048
[SOLVED] Finding connected components in a graph.

I have two arrays having the connection information "from -->to"
@a=a,b,d
@b=c,c,e
The following code finds the connected components based on the content of these two arrays.

Code
my @a=qw(a b d); 
my @b=qw(c c e);
my $g = Graph->new( undirected => 1 );
for (my $r = 0; $r <= 2; $r++) {
$g->add_edge($a[$r], $b[$r]);
}

my @subgraphs = $g->connected_components;
my $V = $g->vertices;
print "\n$V\n";
print "----connected components------------";
use YAML; print Dump \@subgraphs;

------------OUTPUT----------------------

Code
----connected components--------------- 
-
- c
- a
- b
-
- e
- d


My question is how do I access only one of the connected components? I.e. either C-A-B or D-E


(This post was edited by zing on Oct 2, 2012, 1:56 PM)


Edit Log:
Post edited by zing (Novice) on Oct 2, 2012, 10:48 AM
Post edited by zing (Novice) on Oct 2, 2012, 10:49 AM
Post edited by zing (Novice) on Oct 2, 2012, 10:50 AM
Post edited by zing (Novice) on Oct 2, 2012, 10:55 AM
Post edited by zing (Novice) on Oct 2, 2012, 10:56 AM
Post edited by zing (Novice) on Oct 2, 2012, 1:56 PM
Post edited by zing (Novice) on Oct 2, 2012, 1:56 PM


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives