回答編集履歴
1
Update
answer
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
collatz_sequence <- function(m){
|
|
4
4
|
sequence <- c(m)
|
|
5
5
|
while(m > 1) {
|
|
6
|
-
m <- if (
|
|
6
|
+
m <- if (m%%2) 3*m+1 else m/2
|
|
7
7
|
sequence <- c(sequence, m)
|
|
8
8
|
}
|
|
9
9
|
sequence
|