作者windmusic (喔耶)
看板perl
标题Re: [请益] 统计
时间Wed May 24 21:07:14 2006
※ 引述《imce (蜥蜴)》之铭言：
: ※ 引述《windmusic (喔耶)》之铭言：
: : 我要设计一个程式
: : 丢骰子6000次
: : 最後要统计看各面出现的次数各是几次
: : 现在我已经把乱数设定好了
: : 但是不会统计他的次数
: : 有大大可以帮我解答吗
: : 感激不尽OTL
: while(1..6000)
: {
: $a=random();
: $HASH{$a}++;
: }
: $HASH{1}
: $HASH{2}
: .
: .
: 就是结果次数
不好意思^^"
可以提供详细的程式码吗
我是初学者
还不熟练>"<
谢谢大大~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.140.93.116