Re: How to make buckets of like data

in reply to How to make buckets of like data

A more efficient formulation:

#! perl -slw
use strict;
use Data::Dump qw[ pp ];

my @array = (['A','B'],['C','D'],['A','C'],['E','F'],['F','G']);
my @buckets;

for( sort { $a->[0] cmp $b->[0] } @array ) {
    my( $x, $y ) = @$_;
    my $added = 0;
    for my $bkt ( @buckets ) {
        if( exists $bkt->{ $x } or exists $bkt->{ $y } ) {
            undef @{ $bkt }{ $x, $y };
            ++$added;
        }
    }
    push @buckets, { $x, undef, $y, undef } unless $added;
}
$_ = [ sort keys %$_ ] for @buckets;
pp \@buckets;

__END__
C:\test>1017261-2
[["A", "B", "C", "D"], ["E", "F", "G"]]
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re: How to make buckets of like data Download Code

In Section Seekers of Perl Wisdom