回答編集履歴
1
Update
answer
CHANGED
|
@@ -1,12 +1,14 @@
|
|
|
1
1
|
`for` ループの停止条件を `if` 文の外側に置きましょう。
|
|
2
2
|
```r
|
|
3
|
+
montekun<-function(n){
|
|
4
|
+
famif<-runif(10000) # とりあえず乱数を多めに設定
|
|
5
|
+
y<-0
|
|
3
6
|
for(i in 1:10000){
|
|
4
7
|
if(y==n) break
|
|
5
8
|
if(famif[i]<(n-y)/n){
|
|
6
9
|
y<-y+1
|
|
7
|
-
count<-count+1
|
|
8
|
-
}else{
|
|
9
|
-
count<-count+1
|
|
10
10
|
}
|
|
11
11
|
}
|
|
12
|
+
return(i-1)
|
|
13
|
+
}
|
|
12
14
|
```
|