生成多个不重复的随机数代码,Perl代码库,德仔网

代码语言

代码分类

【Perl】生成多个不重复的随机数

作者:dezai / 发布于2014/9/12/ 1523

随机产生10个3n+1的随机数，这10个数不重复，用到了hash 来保存产生过的序列号，使得查找速度为O(1) int(rand(100))为产生随机int


	#!/usr/bin/perl
	my %sns = ();
	for(my $i = 0;$i < 10; $i ++) {
	 my $range = 100;
	 do{
	 $no = rand($range);
	 $no = int($no);
	 $no = $no * 3 + 1;
	
	 }while($sns{"$no"} == 1);
	 $sns{"$no"} = 1;
	 print "$no\n";
	
	}

　　

试试其它关键字

　随机数　

同语言下

可能有用的

dezai贡献的其它代码(1065)

Copyright © 2004 - 2024 dezai.cn. All Rights Reserved 站长博客粤ICP备13059550号-3