怎么用变量表示一个数组中挨着的两个元素

赛萌

如一个数组@w=qw(1 3 6 8 14 15 21 23)
要求相邻的两个元素相减不超过5的这些元素截到新数组中，得到：
1 3 6 8
14 15
21 23

用perl怎么实现呢

赛萌

回复 1# 赛萌


    好像就是做一个循环，第一个元素不动，读第二个元素，如果第二个元素减第一个元素小于5，就把第二个元素跟到第一个元素的后面，如果大于5就把第二个元素存到一个新的数组中去，再循环第三个元素，让第三个元素减第二个元素，如果第三个元素减第二个元素小于5，就把第三个元素跟到第二个元素的后面，如果大于5就把第三个元素存到一个新的数组中去，如此循环下去，可以我不会写出变量的形式，

赛萌

回复 1# 赛萌


哦，想错了

MMMIX

回复 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);
    

复制代码

赛萌

回复 4# MMMIX


    谢谢，请受我三拜！

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;
    

复制代码

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 发表于 2015-08-25 02:40
biru:

rubyish 绝对是非人类，鉴定完毕

赛萌

回复 6# rubyish

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

赛萌

回复 8# ttcn_cu


    嘿嘿，为什么这样说啊