问 如何用perl生成一个方阵

kakakan

请问，如何生成一个50*50的方阵，矩阵里的元素都是随机数。

谢谢！

kakakan

矩阵里的数字要求从-1000到+1000

zzyong08

有个笨方法, 每次生成一个-1000到1000的随机数, 一个循环50*50次.
1000 - rand(2000)

ly5066113

1. #! /usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my @arr = -1000..1000;
   
7. 
   
8. for(1..50)
   
9. {
   
10.         for(1..50)
    
11.         {
    
12.                 print $arr[int(rand 2000)], " ";
    
13.         }
    
14.         print "\n";
    
15. }

复制代码

MMMIX

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my ($size, $range) = @ARGV;
   
8. 
   
9. for (1..$size) {
   
10.         for (1..$size) {
    
11.                 printf "%*d ", length($range) + 1, $range - int(rand 2*$range);
    
12.         }
    
13.         print "\n";
    
14. }
    

复制代码

$ ./t.pl 5 100
  41  -36   92   86  -94
  43   32   53  -39    6
-41  -49  -60   23   69
  54  100  -60   44  -19
  -9  -74  -66   71   54

呃，是不是太华丽了？

cobrawgl

my @array = map { [map {(1000 - int(rand 2000))} (1 .. 50)] } (1 .. 50);   

kakakan

谢谢楼上各位高人。