8 lines
109 B
R
8 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
|
||
|
|
}
|