■平均出力の手法

例えば0から19までの数字を10000回ランダムに発生させ、
それぞれの数字が何回発生したかを解析するプログラム実行結果

No.00 = 488 times (4.88%)
No.01 = 489 times (4.89%)
No.02 = 495 times (4.95%)
No.03 = 490 times (4.9%)
No.04 = 483 times (4.83%)
No.05 = 481 times (4.8%)
No.06 = 523 times (5.23%)
No.07 = 511 times (5.11%)
No.08 = 485 times (4.85%)
No.09 = 475 times (4.75%)
No.10 = 514 times (5.14%)
No.11 = 484 times (4.84%)
No.12 = 513 times (5.13%)
No.13 = 528 times (5.28%)
No.14 = 473 times (4.73%)
No.15 = 524 times (5.24%)
No.16 = 540 times (5.4%)
No.17 = 520 times (5.2%)
No.18 = 476 times (4.76%)
No.19 = 508 times (5.08%)
-------------------------
ALL = 10000 times




srand(time|$$);

foreach (1 .. 10000) { #10000回ループ

	$count = int rand 20; #0から19までの乱数発生させた整数を得る
	if ($count < 10)  { $count = "0$count"; }
	$BANNERS{($count)[0]}++; $i++; #発生した数字がそれぞれ何回出現したかをカウント

}

foreach (sort keys %BANNERS) {

	$percent = (int(10000 * ($BANNERS{$_} / $i)) / 100); #パーセンテージ計算
	print "No\.$_ = $BANNERS{$_} times ($percent\%)\n"; #カウント結果
	$all = $all + $BANNERS{$_};
}

print "-------------------------\n";
print "ALL = $all times\n\n";