两个列表的比较

wpeng18

经常会遇到这样的情况
有两个列表，如何比较他们。得到他们的交集，并集，各自补集
谢谢，常常有这样的问题。

ly5066113

原帖由 wpeng18 于 2008-1-25 17:08 发表
经常会遇到这样的情况
有两个列表，如何比较他们。得到他们的交集，并集，各自补集
谢谢，常常有这样的问题。

%还是@

wpeng18

是@

ly5066113

想了一个求并集的：
#!/usr/bin/perl
use strict;
use warnings;

my @a1 = (1..10);
my @a2 = (6..15);
my %h = map { $_ => $_ } (@a1 ,@a2);

for(keys %h) {
        print $_ ."\n";
}

其他的在考虑考虑。

ly5066113

交集：
#!/usr/bin/perl
use strict;
use warnings;

my @a1 = (1..10);
my @a2 = (6..15);
my %h;

foreach my $key (@a2) {
        $h{$key} = $key if grep {$_ == $key} @a1;
}

for(keys %h) {
        print "$_\n";
}

duhast

1. 
   
2. my @a=("a","b","c","d","e");
   
3. my @b=("b","g","f","e");
   
4. 
   
5. my %a=map{$_=>1} @a;
   
6. my %b=map{$_=>1} @b;
   
7. 
   
8. # 交集
   
9. @A = grep( $a{$_}, @b ) ;
   
10. 
    
11. # 补集
    
12. @B1=grep(!defined $a{$_}, @b);
    
13. @B2=grep(!defined $b{$_}, @a);
    
14. 
    
15. # 并集
    
16. %C=map {$_=>1} @a,@b;
    
17. @C=keys %C;
    

复制代码