[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] Perl怎样快速生成大量不重复的随机数?

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

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

TOP

  1. perl -le "print rand()"
复制代码
随机数是这样吧
1

评分人数

TOP

本帖最后由 523066680 于 2011-6-5 23:52 编辑

…… 这个题目最近就像重温了一遍,用批处理VBS,PERL,C语言各做了一遍。。。。。。
我只在图像渐显上用到
如果是1000 就改 $max为1000吧, 20是为了方便用眼睛验证是否有重复数字
  1. #!/usr/bin/perl
  2. $max=20;
  3. for $i (1..$max) {
  4. $arr[$i-1]=$i;
  5. }
  6. for ($i=$max;$i>0;$i--) {
  7. $randx=int( rand() * $i );
  8. print "$arr[$randx]\n";
  9. $arr[$randx]=$arr[$i-1];
  10. }
  11. <STDIN>;
复制代码
我勒个去……刚看清楚, 一千万个,好几分钟

TOP

  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秒多,还有更快的吗?

TOP

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

TOP

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

TOP

本帖最后由 523066680 于 2011-6-6 00:24 编辑

原来是把结果导出到文本了,真周到,print到屏幕花好多时间……
4楼的方法需要21秒多,还有更快的吗?


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

TOP

本帖最后由 523066680 于 2017-9-6 11:48 编辑
  1. =info
  2.     523066680
  3. =cut
  4. use Time::HiRes qw/time/;
  5. my $time_a = time();
  6. my $max = 10000000;
  7. my @array = ( 1 .. $max );
  8. my $idx = $max;
  9. while ($idx > 0)
  10. {
  11.     $rand = int(rand($idx));
  12.     print $array[$rand],"\n";
  13.     $array[$rand] = $array[$idx-1];
  14.     $idx--;
  15. }
  16. 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
1

评分人数

TOP

如果不考虑效率,数量比较少,那就加点糖
  1. my @array = (1 .. 20);
  2. my @new_array = map { splice( @array, int(rand($#array+1)), 1 ) } ( 0 .. $#array );
复制代码
1

评分人数

TOP

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

评分人数

TOP

返回列表