>>921
シミュレーションしてみた。

> sim <- function(n=5,m=4){ # n色のうちm色判明で終了
+ record=NULL # 記録された色
+ color=0 # 記録された色の種類
+ count=0 # 試行回数
+ while(color!=m){ # m色記録されないなら
+ count=count+1 # １個取り出して
+ record=unique(append(record,sample(n,1))) # 記録に追加して重複抹消
+ color=length(record) # 記録された色の種類
+ }
+ return(count) # 試行回数を返す
+ }
>
> mean(replicate(1e6,sim())) # 百万回繰り返して平均を求める
[1] 6.414439
>