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