免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 2113 | 回复: 2

帮分析一个抽签程序--结帖 [复制链接]

论坛徽章:
0
发表于 2007-12-12 15:32 |显示全部楼层
royalzhang老大的程序:
#!/usr/bin/perl

use strict;
my %hash=(
   '001'=>'张三',
   '002'=>'李四',
   '003'=>'王五',
   '004'=>'刘六',
   '005'=>'陈七',
);
my @pool=keys %hash;
my $i = @pool; # $i是数组的长度


for(@pool){
    print "Press ENTER key to continue!\nEnter 'exit' to exit the programme\n";
    exit if <>=~/exit/i;
my $n; #存放随机数


my $n = rand($i--);
print $pool[$n],": ",$hash{$pool[$n]}," win!\n";
$pool[$n] = $pool[$i];
}
print "Over! press Enter to exit!";
<>;

-------该程序满足我的抽签要求(一个学期内,让每个学生都有且仅有一次机会做即兴演,直到50名学生轮回完毕,此为一轮抽签。然后进行第2轮....每轮抽签的结果都是随机产生的)。
-------对该程序,偶有点不太明白:$pool[$n] = $pool[$i];该句的意思是将随机抽到的ID用最后一个ID替换。当$i--=5时,$n有可能随机恰好等于4,$i减一,此时$i=4,$ pool[$n]和$pool[$i]均等于005,也就是用005替换005,替换后005号依然存在@pool中,该轮中,005还会参加抽签,那如何保证005不会两次或多次被抽中呢?
-------我上面的分析哪里出了问题阿?小弟好糊涂阿,请老大耐心指点,感激不尽!谢谢!

[ 本帖最后由 windows.li 于 2007-12-12 16:22 编辑 ]

论坛徽章:
0
发表于 2007-12-12 15:50 |显示全部楼层
晕,汗,也不用重复发帖吧
再次提醒你注意一点,$n能取到的最大值,每次都在减少,最后就只能直接取0了
你明白这点就会清楚了

论坛徽章:
0
发表于 2007-12-12 16:21 |显示全部楼层
大哥,偶欺骗了您的感情 ,对不住了!
关于这个问题,偶明白了,这几天没睡好,晕!拿出手和笔,在纸上一划就明显了,呵呵!谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

DTCC2020中国数据库技术大会

【架构革新 高效可控】2020年12月21日-23日第十一届中国数据库技术大会将在北京隆重召开。

大会以“架构革新 高效可控”为主题,设置2大主会场,20+技术专场,将邀请超百位行业专家,重点围绕数据架构、AI与大数据、传统企业数据库实践和国产开源数据库等内容展开分享和探讨,为广大数据领域从业人士提供一场年度盛会和交流平台。
http://dtcc.it168.com


大会官网>>
  

北京盛拓优讯信息技术有限公司. 版权所有 16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP