取并集

zhlong8

这不是个图吗

yinyuemi

回复 6# kk861123

还有一种情况如下,

1. 1 2
   
2. 2 3
   
3. 5 6
   
4. 1 5

复制代码

结果应该是

1. 1 2 3 5 6

复制代码

1. #!/usr/bin/perl
   
2. use strict;
   
3. use Data::Dumper;
   
4. 
   
5. my %hash1;  # for storing data
   
6. my %hash2;  # for tracking data
   
7. my $index = 0;
   
8. while(<DATA>){
   
9.     chomp;
   
10.     my %hash3; # for alignment of data
    
11.     $index++;  # always updating the key of hash1
    
12.     my @data = split;
    
13.     map{$hash3{$hash1{$_}} = 1 if exists $hash1{$_}}@data;
    
14.     if (scalar %hash3){
    
15.                 map{
    
16.                         push @{$hash2{$index}},@{$hash2{$_}};
    
17.                         delete $hash2{$_};
    
18.                 }keys %hash3;
    
19.                 push @{$hash2{$index}},(@data); # update the tracking data
    
20.                 map{$hash1{$_} = $index}@{$hash2{$index}}; # update the storing data
    
21.     }else{
    
22.         map{$hash1{$_} = $index}@data; # update the storing data
    
23.         @{$hash2{$index}} = (@data); # update the tracking data
    
24.     }
    
25. };
    
26. my %output;
    
27. map{push @{$output{$hash1{$_}}},$_}keys %hash1;
    
28. print Dumper \%output;
    
29. 
    
30. __DATA__
    
31. a b
    
32. b c
    
33. d
    
34. b e
    
35. a f
    
36. 1 2
    
37. 2 3
    
38. 3 2
    
39. 4 7 8
    
40. 5 7
    
41. 6
    
42. 7 4 5 8
    
43. 8 4 7
    

复制代码

rubyish

这:

1. #!/usr/bin/perl
   
2. my %h;
   
3. sub merge {
   
4.     my ( @a, $ok, %t ) = @_;
   
5.     for my $k ( keys %h ) {
   
6.         $k =~ /$_/ and $ok++ and last for @a;
   
7.         next unless $ok;
   
8.         last if $k eq "@a";
   
9.         my @k = grep { !$t{$_}++ } @{ $h{$k} }, @a;
   
10.         delete @h{ $k, "@a" };
    
11.         $h{"@k"} = [@k];
    
12.         last;
    
13.     }
    
14.     $h{"@a"} = [@a] unless $ok;
    
15. }
    
16. 
    
17. merge split while <DATA>;
    
18. merge @{ $h{$_} } for keys %h;
    
19. print $_, $/ for keys %h;
    
20. __DATA__
    
21. a b
    
22. b c
    
23. d
    
24. b e
    
25. a f
    
26. 1 2
    
27. 2 3
    
28. 3 2
    
29. 4 7 8
    
30. 5 7
    
31. 6
    
32. 7 4 5 8
    
33. 8 4 7
    

复制代码

mcshell

@rubyish@yinyuemi谢谢

rubyish

某一段:

1. #!/usr/bin/perl
   
2. my ( %h, %g );
   
3. while (<DATA>) {
   
4.     my @a = split;
   
5.     map { push @{$h{$_}}, @a } @a;
   
6. }
   
7. for my $k ( keys %h ) {
   
8.     next if $g{$k};
   
9.     my %t;
   
10.     my @a = grep { !$t{$_}++ } map { $a = $_; map { $b = $_;
    
11.                         map { @{$h{$_}} } @{$h{$b}} } @{$h{$a}} } @{$h{$k}};
    
12.     @g{@a} = (1) x @a;
    
13.     print join(' ', @a), $/;
    
14. }
    
15. __DATA__
    
16. a b
    
17. b c
    
18. d
    
19. b e
    
20. a f
    
21. 1 2
    
22. 2 3
    
23. 3 2
    
24. 4 7 8
    
25. 5 7
    
26. 6
    
27. 7 4 5 8
    
28. 8 4 7
    

复制代码

aku1

rubyish 发表于 2012-11-30 17:57
某一段:

楼上兄弟，你的代码，我没看懂，能解释下吗？

jun413947139

回复 6# kk861123

我写的，差距怎么那么大呢，貌似脑子里没有一点数据结构的用法。。。。。。。。。学习中

1. open FILE, "<test.data" or die "cannot open test.data";
   
2. my @lines = <FILE>;
   
3. close FILE;
   
4. 
   
5. for my $line (@lines)
   
6. {
   
7.     chomp $line;
   
8.     my @nums = split ' ', $line;
   
9.     my $sign = 0;
   
10. 
    
11.     for my $collection (@collections)
    
12.     {   
    
13.         for my $num (@nums)
    
14.         {   
    
15.             if (grep /^$num$/, @$collection)
    
16.             {   
    
17.                 $sign = 1;
    
18.                 last;
    
19.             }   
    
20.         }   
    
21.         if ($sign == 1)
    
22.         {   
    
23.             push @$collection, grep {
    
24.                 my $num = $_;
    
25.                 !grep /^$num$/, @$collection;
    
26.             } @nums;
    
27.             last;
    
28.         }   
    
29.     }   
    
30.     if ($sign == 0)
    
31.     {
    
32.         push @collections, \@nums;
    
33.     }
    
34. }
    
35. 
    
36. for (@collections)
    
37. {
    
38.     print join " ", sort @$_;
    
39.     print "\n";
    
40. }

复制代码