sub induced {
my (@z)=@_;
for my $QT (\@z ){
#print Dumper $QT;
for my $triplet ( @trip ){
my %Pie;
undef @Pie{@$QT};
delete @Pie{ @$triplet };
print "@$triplet\n" if keys(%Pie) <= ( @$QT - @$triplet ) ;
return (@$triplet);
}
}}
####
for my $QT (\@z ){
...
undef @Pie{@$QT};
...
print "@$triplet\n" if keys(%Pie) <= ( @$QT - @$triplet ) ;
...
}
##
##
for my $triplet ( @trip ){
my %Pie;
undef @Pie{@$QT};
delete @Pie{ @$triplet };
print "@$triplet\n" if keys(%Pie) <= ( @$QT - @$triplet ) ;
return (@$triplet);
}
##
##
sub induced {
my (@z) = @_;
my $triplet = $trip[0];
my %Pie;
undef @Pie{ @z };
delete @Pie{ @$triplet };
print "@$triplet\n" if keys(%Pie) <= (@z - @$triplet);
return @$triplet;
}