>>282
そういえば、FimoseくんがWolframが使えるようなことを嘯いていたなぁ。
俺は信じていないけど。
＞プログラム作って計算して、どうぞ
という要望にFimoseくんのWolframコードの投稿を希望。

医学部卒の俺はR言語の方が慣れている。んで、Rのコード（最適化やバブ指摘歓迎）
sim=function(
h12=c(10,9), # bout3　横綱1vs大関2
h23=c(8,7), # bout1　大関2vs関脇3
h13=c(6,5)){ # bout2　横綱1vs関脇3
bout=sample(3,1) # 初戦の試合番号
last_winner=0　# 前勝者
flg= FALSE # 連勝フラッグ
count=0 # 試合数
while(!flg){
count=count+1
if(bout==1){
i=2-rbinom(1,1,h23[1]/sum(h23)) # 勝者のindex
h23[i]=h23[i]+1 # 通算成績更新
winner=c(2,3)[i] # 勝者番号
bout=c(2,3)[-i] # 敗者番号=次の試合番号
}
if(bout==2){
i=2-rbinom(1,1,h13[1]/sum(h13))
h13[i]=h13[i]+1
winner=c(1,3)[i]
bout=c(1,3)[-i]
}
if(bout==3){
i=2-rbinom(1,1,h12[1]/sum(h12))
h12[i]=h12[i]+1
winner=c(1,2)[i]
bout=c(1,2)[-i]
}
flg <- winner==last_winner
last_winner=winner
}
c(winner=winner,count=count)
}