7 lines
109 B
R
7 lines
109 B
R
s <- c(1, 2, 2, 3, 4, 4, 5)
|
|
|
|
for(i in 1:7){
|
|
curr <- s[i]
|
|
if(i>1 && curr==prev) print(i)
|
|
prev <- curr
|
|
}
|