如何生成这种固定格式的数组?

sunzhiguolu

代码如下:

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aSeq = 0 .. 4;
   
6. my @aPos = (
   
7.     [0, 5, 10, 15],
   
8.     [1, 6, 11, 16],
   
9.     [2, 7, 12, 17],
   
10.     [3, 8, 13, 18],
    
11.     [4, 9, 14, 19],
    
12. );
    
13. 
    
14. print "@$_\n" for @aPos;

复制代码

怎样能够快速的将 @aSeq 数组转换成 @aPos 格式的数组, 谢谢大家.

sunzhiguolu

弄了一个, 看着好像挺复杂 有没有简单一点的版本, 谢谢大家...

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aSeq = 0 .. 4;
   
6. my @aPos = [0, 5, 10, 15];
   
7. foreach my $idx (1 .. $#aSeq){
   
8.     $aPos[$idx][$_] = ($aPos[$idx - 1][$_] + 1) for 0 .. $#{$aPos[0]};
   
9. }
   
10. 
    
11. print "@$_\n" for @aPos;

复制代码

sunzhiguolu

如果去除下面这行代码, 还能得到 @aPos 数组吗?

1. my @aPos = [0, 5, 10, 15];

复制代码

jiangphoenix

路过，看到大神，膜拜一下

sunzhiguolu

没啥好的方法了吗?

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my @aSeq = 0 .. 4;
   
6. my @aPos;
   
7. foreach my $idx (0 .. $#aSeq){
   
8.     my @aT = my $n = $idx;
   
9.     push (@aT, map {$n += 5} 0 .. 2);
   
10.     push (@aPos, \@aT);
    
11. }
    
12. 
    
13. print "@$_\n" for @aPos;

复制代码

104359176

你是要做什么？二维数组转置？

104359176

1. 
   
2. > (transpose (explode (sequence 1 16) 4))
   
3. ((1 5 9 13) (2 6 10 14) (3 7 11 15) (4 8 12 16))
   

复制代码

sunzhiguolu

回复 7# 104359176
大神 这个代码怎么运行?

jason680

回复 5# sunzhiguolu


$ perl a2.pl
0 5 10 15 20 25 30 35
1 6 11 16 21 26 31 36
2 7 12 17 22 27 32 37
3 8 13 18 23 28 33 38
4 9 14 19 24 29 34 39

$ cat  a2.pl
#!/usr/bin/perl
use strict;
use warnings;

my $sSeq = 4;   # 0 .. 4
my $sNum = 7;  # 0 .. 7
my @aPos = map{my $x=$_; [ map {$x+$_*($sSeq+1)}(0..$sNum) ] } (0..$sSeq);

print "@$_\n" for @aPos;

104359176

用 newlisp, 在 repl 中：

1. > newlisp
   
2. newLISP v.10.7.0 32-bit on Windows IPv4/6 libffi, options: newlisp -h  
   
3.                                                                        
   
4. >                                                                    

复制代码