18/06/29 08:21:55.31 zpGshx3p.net
>>287
プログラミングで解くほうがずっと容易だよなぁ。
> p=4:1
> cereals <- function(p){
+ n=length(p)
+ coupons=NULL
+ while(!all((1:n) %in% coupons)){
+ coupons=append(sample(1:n,1,p=p),coupons)
+ }
+ return(length(coupons))
+ }
>
> re=replicate(100,mean(replicate(1e3,cereals(p