perl:sets
This is an old revision of the document!
Consider finding the union and intersection of two unique arrays @a and @b:
foreach $e (@a) { $union{$e} = 1 } foreach $e (@b) { if ( $union{$e} ) { $isect{$e} = 1 } $union{$e} = 1; } @union = keys %union; @isect = keys %isect;
This would be more idiomatically written as:
foreach $e (@a, @b) { $union{$e}++ && $isect{$e}++ } @union = keys %union; @isect = keys %isect;
perl/sets.1242311040.txt.gz · Last modified: 2009/05/14 07:24 by tkbletsc