问如何用perl生成一个方阵

kakakan

UID: 40764
帖子: 115
积分: 264
在线时间: 18 小时

1^# kakakan 发表于 2008-12-13 02:33

问如何用perl生成一个方阵

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

谢谢！

kakakan

UID: 40764
帖子: 115
积分: 264
在线时间: 18 小时

2^# kakakan 发表于 2008-12-13 04:01

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

zzyong08

UID: 19033
帖子: 9
积分: 20
在线时间: 10 分钟

3^# zzyong08 发表于 2008-12-13 11:29

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

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

4^# ly5066113 发表于 2008-12-13 12:08

[Copy to clipboard] [ - ]

CODE:

#! /usr/bin/perl

use warnings;
use strict;

my @arr = -1000..1000;

for(1..50)
{
for(1..50)
{
print $arr[int(rand 2000)], " ";
}
print "\n";
}

MMMIX

UID: 31964
帖子: 137
积分: 315
在线时间: 1 天 1 小时

5^# MMMIX 发表于 2008-12-13 13:24

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl

use strict;
use warnings;

my ($size, $range) = @ARGV;

for (1..$size) {
for (1..$size) {
printf "%*d ", length($range) + 1, $range - int(rand 2*$range);
}
print "\n";
}

QUOTE:

$ ./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

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

6^# cobrawgl 发表于 2008-12-13 17:07

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

kakakan

UID: 40764
帖子: 115
积分: 264
在线时间: 18 小时

7^# kakakan 发表于 2008-12-14 00:37

谢谢楼上各位高人。

问 如何用perl生成一个方阵

问 如何用perl生成一个方阵

问如何用perl生成一个方阵

问如何用perl生成一个方阵