Perl怎样快速生成大量不重复的随机数？

DAIC

1、生成一千万个互不重复的随机数
2、速度越快越好

523066680

呀 这个用vbs , c ,和批处理都做过  ，随机输出不重复，用于图像的渐显效果
是1到1000吗？    忘了perl怎么生成随机数……

CUer

1. perl -le "print rand()"

复制代码

随机数是这样吧

523066680

…… 这个题目最近就像重温了一遍，用批处理VBS,PERL,C语言各做了一遍。。。。。。
我只在图像渐显上用到
如果是1000 就改 $max为1000吧， 20是为了方便用眼睛验证是否有重复数字

1. 
   
2. #!/usr/bin/perl
   
3. $max=20;
   
4. for $i (1..$max) {
   
5.         $arr[$i-1]=$i;
   
6. }
   
7. for ($i=$max;$i>0;$i--) {
   
8.         $randx=int( rand() * $i );
   
9.         print "$arr[$randx]\n";
   
10.         $arr[$randx]=$arr[$i-1];
    
11. }
    
12. <STDIN>;
    

复制代码

我勒个去……刚看清楚， 一千万个，好几分钟

DAIC

1. $max=10000000;
   
2. for $i (1..$max) {
   
3.     $arr[$i-1]=$i;
   
4. }
   
5. for ($i=$max;$i>0;$i--) {
   
6.     $randx=int( rand() * $i );
   
7.     print "$arr[$randx]\n";
   
8.     $arr[$randx]=$arr[$i-1];
   
9. }
   

复制代码

1. timeit perl test.pl >a.txt

复制代码

Elapsed Time:     0:00:21.801
Process Time:     0:00:21.060

4楼的方法需要21秒多，还有更快的吗？

523066680

5# DAIC
这位大妈终于有个回帖了。
那个……  你电脑什么配置，这么快

DAIC

我是2G的内存，2.8G的双核CPU。

523066680

原来是把结果导出到文本了，真周到，print到屏幕花好多时间……

4楼的方法需要21秒多，还有更快的吗？

   我也想看看有米有更快的算法

523066680

1. =info
   
2.     523066680
   
3. =cut
   
4. 
   
5. use Time::HiRes qw/time/;
   
6. 
   
7. my $time_a = time();
   
8. my $max = 10000000;
   
9. my @array = ( 1 .. $max );
   
10. 
    
11. my $idx = $max;
    
12. while ($idx > 0)
    
13. {
    
14.     $rand = int(rand($idx));
    
15.     print $array[$rand],"\n";
    
16.     $array[$rand] = $array[$idx-1];
    
17.     $idx--;
    
18. }
    
19. 
    
20. printf STDERR "Time used: %.3fs\n", time() - $time_a;

复制代码

转眼6年过去了，我也没啥进步，做点修改，电脑CPU比以前好了，
>popup.pl >d:/test.txt
Time used: 7.533s

如果不是print重定向到文件，而是写入到新的数组
Time used: 4.154

523066680

如果不考虑效率，数量比较少，那就加点糖

1. my @array = (1 .. 20);
   
2. my @new_array = map { splice( @array, int(rand($#array+1)), 1 ) } ( 0 .. $#array );

复制代码

tigerpower

1. use feature 'say';
   
2. use List::Util 'shuffle';
   
3. use Time::HiRes 'time';
   
4. 
   
5. $time = time();
   
6. say for shuffle 1..10000000;
   
7. printf STDERR "Time used: %.3fs", time()-$time;

复制代码