More than one way to do it...

xiumu2280

最近收到数据，还是范围，但是是整整一列。
我需要按大小两两一组把他们进行分组，于是就想到变成二维数组的形式处理。

写程序的时候一想发现这个有很多种写法。数据如下，大神们发挥下~

1. my @zone = reverse (
   
2. 32666,
   
3. 28064,
   
4. 28354,
   
5. 24183,
   
6. 24326,
   
7. 19936,
   
8. 19964,
   
9. 16585,
   
10. 16072,
    
11. 15727,
    
12. 15562,
    
13. 11341,
    
14. 11381,
    
15. 5549,
    
16. );

复制代码

xiumu2280

1. my @zone_real;
   
2. foreach my $ele (0..$#zone) {
   
3.         next if $ele%2;
   
4.         push @zone_real,[$zone[$ele],$zone[$ele+1]];
   
5. }

复制代码

pitonas

这个有很多种写法。~ {:2_179:}

PART 1: 高端大气上档次

1. sub show {
   
2.     print join( ', ', map '[' . join( ', ', @$_ ) . ']', @_ ) . $/;
   
3. }
   
4. 
   
5. my @a = 1 .. 8;
   
6. 
   
7. my @A = map [ @a[ $_, $_ + 1 ] ], grep !( $_ % 2 ), 0 .. $#a;
   
8. show @A;
   
9. 
   
10. my @B = map [ @a[ $_, $_ + 1 ] ], grep --$|, 0 .. $#a;
    
11. show @B;
    
12. 
    
13. my @C = map [ @a[ $_, $_ + 1 ] ], map $_ * 2, 0 .. $#a / 2;
    
14. show @C;
    
15. 
    
16. my @D = map { --$| ? [ @a[ $_, $_ + 1 ] ] : () } 0 .. $#a;
    
17. show @D;
    
18. 
    
19. my @E = map $_ & 1 ? () : [ @a[ $_, $_ + 1 ] ], 0 .. $#a;
    
20. show @E;
    
21. 
    
22. # destructive
    
23. my @b = 1 .. 8;
    
24. my @F = map [ splice @b, 0, 2 ], 0 .. $#b / 2;
    
25. show @F;
    
26. 
    
27. # destructive
    
28. @ARGV = 1 .. 8;
    
29. my @G = map [ shift, shift ], 0 .. $#ARGV / 2;
    
30. show @G;
    
31. 
    
32. # stupid
    
33. my @H = map [split], "@a" =~ /\S+\s\S+/g;
    
34. show @H;

复制代码

PART 2: 简约低调有内涵

1. # cool
   
2. my @a = 1 .. 8;
   
3. # my @I = ... [[ read PART2.pl ]]
   
4. # show @I;

复制代码

PART2: [ 优惠价格 : 50 积分 ]
代码只有 1 行。
  建议: 速度变身高大上小伙伴们快来 购买 吧 !!  

PART2.pl.zip (310 Bytes, 下载次数: 2, 售价: 50 可用积分)

2014-07-25 21:51 上传

点击文件名下载附件
售价: 50 可用积分  [记录]

afukada

來獻醜一下

1. print join(",",map{$r=$_;"[".join(",",map{$zone[$r*2+$_]}(0,1))."]"}(0..int($#zone/2))),"\n";
   

复制代码

xiumu2280

要的就是你~~回复 3# pitonas


   

xiumu2280

小伙伴写程序记得用 use strict啊回复 4# afukada


   

yestreenstars

how about it?

1. my @zone_real;
   
2. push(@zone_real, [splice(@zone, 0, 2)]) while @zone;

复制代码