底辺私立医大を卒業した医者って頭悪いよね？ Part19

sim = function(n){
jk <- function(x) ifelse(diff(x)^2==1,max(x),min(x))
jkn <- function(n,i){
count=i
aiko=TRUE
while(aiko){
count=count+1
j = sample(3,n,rep=TRUE)
aiko<-length(unique(j))!=2
}
kachite=jk(unique(j))
player<-sum(j==kachite)
c(player,count)
}
pc=jkn(n,0)
while(pc[1]>1){
pc=jkn(pc[1],pc[2])
}
pc[2]
}