0599卵の名無しさん垢版 | 大砲2018/08/04(土) 21:52:26.83ID:Tkj7u78K blood.samples <- function(p=c(4,3,2,1),need=c(1,1,1,1),k=1e5){ mean(replicate(k,blood.type(p,need))) } blood.samples() blood.samples(need=4:1,k=1e4)