- 544 名前：nobodyさん mailto:sage [2007/02/13(火) 17:47:00 ID:???]
- とりあえずこんな感じかなあ……確率の計算なんてもう忘れたｿﾞﾇ
#!/usr/local/bin/perl
use strict;
my $a = 200; # Aの数
my $b = 300; # Bの数
my $c = 3; # 実際の当たりの数
my $d = 1000; # 試行回数
my $e = 1;
for (my $n=0; $n<$c; $n++) {
$e *= $d - $n;
}
my $f = 1;
for (my $n=1; $n<=$c; $n++) {
$f *= $n;
}
my %x;
$x{'a'} = (1/$a)**$c * (1-1/$a)**($d-$c) * $e/$f; # Aでその当たり回数になる確率
$x{'b'} = (1/$b)**$c * (1-1/$b)**($d-$c) * $e/$f; # Bでその当たり回数になる確率
print "Content-type: text/plain\n\n";
print "A: " . $x{'a'} . "\n";
print "B: " . $x{'b'} . "\n";
|
 |
