小中学校範囲の算数・数学の問題のスレ　Part 61

>>128
レスありがとうございます。

R言語で乱数発生でシミュレーションしてヒストグラムと頻度順に表示するプログラム

sim <- function(n=20){
x=sample(n,n,replace = TRUE)
flg <- length(unique(x))<n
i=n
while(flg){
i=i+1
x=c(x,sample(n,1))
flg <- length(unique(x))<n
}
i
}
y=replicate(1e6,sim())
hist(y)
sort(table(y),decreasing = TRUE)