Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re^4: Finding subgraphs induced by a set of given vertices.

by Anonymous Monk
on Oct 04, 2012 at 03:01 UTC ( #997168=note: print w/replies, xml ) Need Help??


in reply to Re^3: Finding subgraphs induced by a set of given vertices.
in thread Finding subgraphs induced by a set of given vertices.

Naturally I zoned out going from QT to T :) I should have not used @S, I should have called it @Triplets, and I also glossed over the output (one match was missing, doh). In main loop should be

for my $one (@T) { my @matches = induced( \@S, $one );