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

代码语言

代码分类

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

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

随机产生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)