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