怎么用變量表示一個(gè)數(shù)組中挨著的兩個(gè)元素

賽萌

如一個(gè)數(shù)組@w=qw(1 3 6 8 14 15 21 23)
要求相鄰的兩個(gè)元素相減不超過5的這些元素截到新數(shù)組中，得到：
1 3 6 8
14 15
21 23

用perl怎么實(shí)現(xiàn)呢

賽萌

回復(fù) 1# 賽萌


    好像就是做一個(gè)循環(huán)，第一個(gè)元素不動(dòng)，讀第二個(gè)元素，如果第二個(gè)元素減第一個(gè)元素小于5，就把第二個(gè)元素跟到第一個(gè)元素的后面，如果大于5就把第二個(gè)元素存到一個(gè)新的數(shù)組中去，再循環(huán)第三個(gè)元素，讓第三個(gè)元素減第二個(gè)元素，如果第三個(gè)元素減第二個(gè)元素小于5，就把第三個(gè)元素跟到第二個(gè)元素的后面，如果大于5就把第三個(gè)元素存到一個(gè)新的數(shù)組中去，如此循環(huán)下去，可以我不會(huì)寫出變量的形式，

賽萌

回復(fù) 1# 賽萌


哦，想錯(cuò)了

MMMIX

回復(fù) 2# 賽萌


    基本上直接翻譯就可以了:

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. use v5.14;
   
8. use Data::Dumper;
   
9. 
   
10. sub split_array {
    
11.     my ($diff, @arr) = @_;
    
12. 
    
13.     my @subarrs;
    
14.     while (@arr) {
    
15.         my @subarr;
    
16.         my $e1 = shift @arr;
    
17.         push @subarr, $e1;
    
18. 
    
19.         while (@arr) {
    
20.             my $e2 = shift @arr;
    
21.             if ($e2 - $e1 < $diff) {
    
22.                 push @subarr, $e2;
    
23.                 $e1 = $e2;
    
24.             } else {
    
25.                 unshift @arr, $e2;
    
26.                 last;
    
27.             }
    
28.         }
    
29.         push @subarrs, \@subarr;
    
30.     }
    
31. 
    
32.     \@subarrs;
    
33. }
    
34. 
    
35. my @arr = (1, 3, 6, 8, 14, 15, 21, 23);
    
36. 
    
37. print Dumper(split_array 5, @arr);
    

復(fù)制代碼

賽萌

回復(fù) 4# MMMIX


    謝謝，請(qǐng)受我三拜！

rubyish

biru:

1. #!/usr/bin/perl
   
2. 
   
3. my @W = qw/1 3 6 8 14 15 21 23/;
   
4. my $P = 5;
   
5. my @N = [];
   
6. 
   
7. for (@W) {
   
8.     $_ - ( $N[-1][-1] // $W[0] ) <= $P ? push @{ $N[-1] }, $_ : push @N, [$_];
   
9. }
   
10. 
    
11. print "@$_\n" for @N;
    

復(fù)制代碼

xiaoxingan99

use strict;
use warnings;
my @w=qw(1 3 6 8 14 15 21 23 29);
for (my $i=0;$i<$#w;$i++)
{
        if ($w[$i+1]-$w[$i]<=5)
        {print "$w[$i] ";}
        else
        {print "$w[$i]\n";}
        }
print "$w[-1]";

ttcn_cu

rubyish 發(fā)表于 2015-08-25 02:40
biru:

rubyish 絕對(duì)是非人類，鑒定完畢

賽萌

回復(fù) 6# rubyish

不太明白$N[-1][-1] //$w[0]？
   

賽萌

回復(fù) 8# ttcn_cu


    嘿嘿，為什么這樣說啊