• 欢迎访问开心洋葱网站,在线教程,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站,欢迎加入开心洋葱 QQ群
  • 为方便开心洋葱网用户,开心洋葱官网已经开启复制功能!
  • 欢迎访问开心洋葱网站,手机也能访问哦~欢迎加入开心洋葱多维思维学习平台 QQ群
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏开心洋葱吧~~~~~~~~~~~~~!
  • 由于近期流量激增,小站的ECS没能经的起亲们的访问,本站依然没有盈利,如果各位看如果觉着文字不错,还请看官给小站打个赏~~~~~~~~~~~~~!

perl 生成多个不重复的随机数

C# 水墨上仙 2974次浏览

随机产生10个3n+1的随机数,这10个数不重复,

用到了hash 来保存产生过的序列号,使得查找速度为O(1)

int(rand(100))为产生随机int

转自:http://blog.chinaunix.net/uid-24953145-id-1618683.html

#!/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";

}


喜欢 (0)
加载中……