随机序列的生成

perljoker

记得前久说到过随机数生成的想关程序，可是，在我提出随机序列如何生成时，貌似没人关注了
今天看java的时候，受到里面方法指导，想到了perl生成随机序列的方法，不采用hash
并且可以重复使用该方法，写了2个，在有个细微的地方有差别，先看下：

1. 
   
2. # method A
   
3. for($k=0;$k<10;$k++){$arr[$k]=$k;}
   
4. print "@arr\n";
   
5. for($k=0;$k<10;$k++){
   
6.     $i=int(rand(10));
   
7.     @arr[$i,$k]=@arr[$k,$i];
   
8. }
   
9. print "@arr\n";
   

复制代码

1. 
   
2. # method B
   
3. for($k=0;$k<10;$k++){$arr[$k]=$k;}
   
4. print "@arr";
   
5. for($k=0;$k<10;$k++){
   
6.     $i=int(rand(10));
   
7.     @arr[$i,1]=@arr[1,$i];   #注意，这里和上面的差别就是$k换成了固定值，比如1
   
8. }
   
9. print "@arr\n";
   

复制代码

上述2种方法获得随机序列都很好
问题是，我对哪种方法能得到更好的随机序列存在疑问
不知道谁能来解析下2中方法的效果

补充：2种方法的文字说明：
对于一个数列，假设是顺序的，如 1 2 3 4 5 6
B：每次随机取其中一个位置，将他的数值和1号位数值交换，换6次，得到一个随机数列
A：每次随机取一个位置，将他的数值和顺序位数值交换，换6次，得到一个随机数列

[ 本帖最后由 perljoker 于 2008-2-20 17:11 编辑 ]

Nosferatu

皮尔逊定理看是否符合泊松分布

lipch

ms很巧妙的方法，但是不是真的随机不知道。
好象随机数的产生可以写一本博士论文，不知道这样是否合理。
请达人指教。

lipch

另外，纠正一个地方，这个程序共交换了10次，不是6次

不死草

呵呵，感觉貌似彩票的随机 。
恩，貌似可以使用排序函数？