去重叠脚本求助

静女，其姝

两列数据
1    10
2     8
3     9
16   40
19   45
输出结果
1    10
16   45

zhlong8

这是神马逻辑

只是一个红薯

同上      

静女，其姝

回复 2# zhlong8


    每一行的两个数代表一个序列的始末位置，我这是要去除这些序列的重叠部分，合并连续的序列

rubyish

应该:

1. #!/usr/bin/perl -l
   
2. my @a;
   
3. while (<DATA>) {
   
4.     @a = [ split ] and next unless @a;
   
5.     my ( $a, $b ) = split;
   
6.     $a < $a[-1][1]
   
7.       ? $b > $a[-1][1] && ( $a[-1][1] = $b )
   
8.       : push @a, [ $a, $b ];
   
9. }
   
10. 
    
11. print for map join( "\t", @$_ ), @a;
    
12. __DATA__
    
13. 1    10
    
14. 2     8
    
15. 3     9
    
16. 16   40
    
17. 19   45

复制代码

zhlong8

回复 1# 静女，其姝

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my $id = 0;
   
7. my @data;
   
8. while (<DATA>) {
   
9.     my($left, $right) = split /\s+/, $_;
   
10.     die "$left >= $right at line $." if $left >= $right;
    
11.     push @data, {
    
12.         value => $left,
    
13.         id    => $id,
    
14.         pos   => 'left',
    
15.     };
    
16.    push @data, {
    
17.         value => $right,
    
18.         id    => $id,
    
19.         pos   => 'right',
    
20.     };
    
21.     $id++;
    
22. }
    
23. 
    
24. # 为保证合并 [1 10] [10 12] 这种情况的区间要求值相等的情况下 'left' < 'right'
    
25. @data = sort { $a->{value} <=> $b->{value} or $a->{pos} cmp $b->{pos} } @data;
    
26. 
    
27. my $idx = 0;
    
28. my @result;
    
29. 
    
30. while ($idx < @data) {
    
31.     my $left = $data[$idx];
    
32.     my %open = ( $left->{id} => 1 ); # 以 left 开始的区间
    
33.     for my $i ($idx+1 .. $#data) {
    
34.         my $val = $data[$i];
    
35.         my $id  = $val->{id};
    
36.         if (exists $open{$id}) {
    
37.             delete $open{$id};
    
38.         } else {
    
39.             $open{$id} = 1;
    
40.         }
    
41.         if (0 == scalar keys %open) { # 不存在没有闭合的区间
    
42.             $idx = $i + 1;
    
43.             push @result, [$left->{value}, $val->{value}];
    
44.             last;
    
45.         }
    
46.     }
    
47. }
    
48. 
    
49. print "@$_\n" for @result;
    
50. 
    
51. __DATA__
    
52. 1    10
    
53. 2     8
    
54. 3     9
    
55. 10   12
    
56. 16   40
    
57. 19   45
    

复制代码

yestreenstars

提供一个awk：

1. awk 'NR==1{a=$1;b=$2}NR>1{if($1>b){print a,b;a=$1;b=$2}else{if($1<a)a=$1;if($2>b)b=$2}}END{print a,b}'

复制代码

静女，其姝

我排过顺序了，所以第一列肯定是从小到大回复 6# zhlong8


   

静女，其姝

回复 5# rubyish


    怎么觉得运行结果出乎我的意料了？

静女，其姝

回复 5# rubyish


    这是求并集吗？