20/12/15 15:00:56.32 QEfzM0Mb.net
>>80
再帰プロラムにしないとシミュレーションできないかなと思ったけど
while loop２つで書けた
sim <- function(){
i=1 # ジャンケン回数
j3=sample(0:2,1) # 3人でジャンケンしたときに勝者の人数
if(j3==1) return(i) # あいこ：勝者1人：勝者2人の比は1:1:1
while(j3==0){ # あいこが続けば繰り返す
i=i+1
j3=sample(0:2,1)
}
if(j3==1) return(i) # 勝者1人ならジャンケン回数を返す
i=i+1
j2=sample(0:1,1,prob=c(3,6)) # 2人でジャンケンしたときに勝者の人数
if(j2==1) return(i) # あいこ：勝者決定の比は3:6
while(j2==0){ # あいこが続けば繰り返す
i=i+1
j2=sample(0:1,1,prob=c(3,6))
}
return(i) # ジャンケン回数を返す
}