20/12/30 22:56:07.67 ei4yf026.net
# cat('counter =',counter,'\n')
# list(counter=counter,player=L,p14=p14) # 残りloser人以下になったときの手
loser=rp[which(!is.na(unlist(L)))]
c(a,b,c,d)[loser]
}
sim()
res=replicate(1e3,sim())
table(res)
20/12/30 22:56:07.67 ei4yf026.net
# cat('counter =',counter,'\n')
# list(counter=counter,player=L,p14=p14) # 残りloser人以下になったときの手
loser=rp[which(!is.na(unlist(L)))]
c(a,b,c,d)[loser]
}
sim()
res=replicate(1e3,sim())
table(res)