Re: Data Structure Design


laziness, impatience, and hubris
	PerlMonks

Re: Data Structure Design

by MZSanford (Curate)

on Aug 17, 2001 at 13:04 UTC ( [id://105636]=note: print w/replies, xml )

Need Help??

in reply to Data Structure Design

in the spirit of KISS, here is my easy solution :

my %clusters = 
(    
    cluster1 => ['h1', 'h2', 'h3', 'h4', 'h5', 'h6', 'h7'],
    cluster2 => ['h1', 'h2', 'h3', 'h4', 'h5', 'h6', 'h7'],
    # ...
);

foreach my $clust (sort keys %clusters) {
    foreach my $ind (0..5) {
        &process_1_6($clusters{$clust}[$ind]);
    }
    &process_7($clusters{$clust}[6]);
}
[download]

always more than one way to skin an amoebae
-- MZS