「汝は人狼なりや？」続わかめてエディション46日目
$n=999999;#srand 0;
for$m(1..$n){
@a=();$k=0;$f=0;for$b(1..3){@a[rand 5]++}
for$b(0..4){$c=rand 6;$c++if$b<=$c;@a[$c]++}
for(1..8){@a[int rand 7]++}
for$i(1..6){if($a[$k]<$a[$i]){$k=$i;$f=0;}elsif($a[$k]==$a[$i]){$f=1;}}
next if$f;$d[$k]++;}
for(@d){$p+=$_}print join"\t", (map{int $_*1000/$p}@d),"/\n";
#出力例：165 165 164 165 164 87 87
拙作モンテカルロが申すに>>488の条件下のグレランでは17.4％の確率で狼が吊れる
考えるに100倍するのを忘れただけとちゃうんかと
for$m(1..$n){
@a=();$k=0;$f=0;for$b(1..3){@a[rand 5]++}
for$b(0..4){$c=rand 6;$c++if$b<=$c;@a[$c]++}
for(1..8){@a[int rand 7]++}
for$i(1..6){if($a[$k]<$a[$i]){$k=$i;$f=0;}elsif($a[$k]==$a[$i]){$f=1;}}
next if$f;$d[$k]++;}
for(@d){$p+=$_}print join"\t", (map{int $_*1000/$p}@d),"/\n";
#出力例：165 165 164 165 164 87 87
拙作モンテカルロが申すに>>488の条件下のグレランでは17.4％の確率で狼が吊れる
考えるに100倍するのを忘れただけとちゃうんかと
|
|
|