已解決：求一列非連續(xù)的數字的連續(xù)的區(qū)間，想了一天，實在想不出，求大家?guī)蛶兔?/a>

54red

我有一組數據，如下面的格式，第一列相同，第三列大于5，求第二列的連續(xù)區(qū)間，輸出是一段一段的小區(qū)間，實在是想不出怎么寫這個程序，求大家?guī)蛶兔Γ?br /> A        74851        1
A        74852        1
A        375904        6
A        375905        6
A        375906        7
A        375907        7
A        375908        7
A        375909        7
A        375910        7
A        375911        7
A        375912        7
B        29172057        19
B        29172058        19
B        29172059        19
B        29172060        19
B        29172061        19
B        29172062        19
B        29172063        19
B        29172064        19
B        29172065        19
B        29172066        19
B        29216088        1
B        29216089        1

結果是：
A        375904        375912
B        29172057        29172066

MMMIX

這種問題要出現多少次才算是個頭？

54red

我承認我的問題太多了！可能在您看來確實又很簡單。回復 2# MMMIX


   

MMMIX

回復 3# 54red


    先不說這個問題簡單復雜，關鍵是它在 Perl 版已經被反復提問和回答了好多遍，你在這時間也不短了，干嗎還要再問一次？

54red

大神，請你理解一下我這樣的菜鳥，任務急，時間緊，被逼無奈啊，真沒見到類似的問題，既然出現過，我去找找看，再次謝謝你之前對我的幫忙。回復 4# MMMIX


   

Okelani

output

1. A        375904        375906
   
2. A        375908        375912
   
3. B        29172057        29172063
   
4. B        29172065        29172066

復制代碼

data structure @Z

1. [
   
2. [ A, [ 375904, 375906 ], [ 375908, 375912 ], [ 375917 ], [ 375919 ] ],
   
3. [ B, [ 29172057, 29172063 ], [ 29172065, 29172066 ] ]
   
4. ]

復制代碼

code

1. 
   
2. use 5.010;
   
3. my ( $X, $Y, @Z ) = '';
   
4. 
   
5. while (<DATA>) {
   
6.     my ( $x, $y, $z ) = split;
   
7.     next if $z <= 5;
   
8. 
   
9.     $X ne $x
   
10.         ? push @Z, [ $X = $x, [$y] ]
    
11.         : $y - $Y == 1
    
12.             ? ( $Z[-1][-1][1] = $y )
    
13.             : push @{ $Z[-1] }, [$y];
    
14. 
    
15.     $Y = $y;
    
16. }
    
17. 
    
18. for (@Z) {
    
19.     my ( $x, @y ) = @$_;
    
20.     @$_ > 1 and say join "\t", $x, @$_ for @y;
    
21. }
    
22. 
    
23. __DATA__
    
24. A        74851        1
    
25. A        74852        1
    
26. A        375904        6
    
27. A        375905        6
    
28. A        375906        7
    
29. A        375908        7
    
30. A        375909        7
    
31. A        375910        7
    
32. A        375911        7
    
33. A        375912        7
    
34. A        375917        7
    
35. A        375919        7
    
36. B        29172057        19
    
37. B        29172058        19
    
38. B        29172059        19
    
39. B        29172060        19
    
40. B        29172061        19
    
41. B        29172062        19
    
42. B        29172063        19
    
43. B        29172065        19
    
44. B        29172066        19
    
45. B        29216088        1
    
46. B        29216089        1

復制代碼

54red

謝謝你了，程序寫的太好了， 回復 6# Okelani


   

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my ($last_column_1, $last_column_2, $first_column_2)=('','','');
   
7. 
   
8. while(<DATA>)
   
9. {
   
10.     my @line=split(/\s+/);
    
11. 
    
12.     if($line[2]>5)
    
13.     {
    
14. 
    
15.        if($last_column_1 eq $line[0] && $line[1] == $last_column_2+1)
    
16.        {
    
17.            $last_column_2 = $line[1];
    
18.        }
    
19.        elsif($last_column_1 ne $line[0] or $line[1] != $last_column_2)
    
20.        {
    
21.            print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n";
    
22.            $last_column_1 = $line[0];
    
23.            $last_column_2 = $line[1];
    
24.            $first_column_2 = $line[1];
    
25.        }
    
26.     }
    
27. 
    
28. }
    
29. 
    
30. print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n";
    
31. 
    
32. __DATA__
    
33. A        74851        1
    
34. A        74852        1
    
35. A        375904        6
    
36. A        375905        6
    
37. A        375906        7
    
38. A        375908        7
    
39. A        375909        7
    
40. A        375910        7
    
41. A        375911        7
    
42. A        375912        7
    
43. A        375917        7
    
44. A        375919        7
    
45. B        29172057        19
    
46. B        29172058        19
    
47. B        29172059        19
    
48. B        29172060        19
    
49. B        29172061        19
    
50. B        29172062        19
    
51. B        29172063        19
    
52. B        29172065        19
    
53. B        29172066        19
    
54. B        29216088        1
    
55. B        29216089        1

復制代碼

xie3ks

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my ($last_column_1, $last_column_2, $first_column_2, $count)=('','','',0);
   
7. 
   
8. while(<DATA>)
   
9. {
   
10.     my @line=split(/\s+/);
    
11. 
    
12.     if($line[2]>5)
    
13.     {
    
14. 
    
15.        if($last_column_1 eq $line[0] && $line[1] == $last_column_2+1)
    
16.        {
    
17.            $last_column_2 = $line[1];
    
18.            $count++;
    
19.        }
    
20.        elsif($last_column_1 ne $line[0] or $line[1] != $last_column_2)
    
21.        {   
    
22.            print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n" if $count>0;
    
23.            $last_column_1 = $line[0];
    
24.            $last_column_2 = $line[1];
    
25.            $first_column_2 = $line[1];
    
26.            $count = 0
    
27.        }
    
28.     }
    
29. 
    
30. }
    
31. 
    
32. print $last_column_1, " "x5, $first_column_2, " "x5, $last_column_2, "\n";
    
33. 
    
34. __DATA__
    
35. A        74851        1
    
36. A        74852        1
    
37. A        375904        6
    
38. A        375905        6
    
39. A        375906        7
    
40. A        375908        7
    
41. A        375909        7
    
42. A        375910        7
    
43. A        375911        7
    
44. A        375912        7
    
45. A        375917        7
    
46. A        375919        7
    
47. B        29172057        19
    
48. B        29172058        19
    
49. B        29172059        19
    
50. B        29172060        19
    
51. B        29172061        19
    
52. B        29172062        19
    
53. B        29172063        19
    
54. B        29172065        19
    
55. B        29172066        19
    
56. B        29216088        1
    
57. B        29216089        1

復制代碼

稍做修改

54red

謝謝啦！程序很贊！回復 9# xie3ks