16 lines
197 B
Text
16 lines
197 B
Text
same3=: {{
|
|
i=. 0
|
|
r=. ,EMPTY
|
|
prev=. 99
|
|
while. i < #y do.
|
|
curr=. i{y
|
|
if. i>0 do.
|
|
if. curr=prev do.
|
|
r=. r,i
|
|
end.
|
|
end.
|
|
prev=. curr
|
|
i=. i+1
|
|
end.
|
|
r
|
|
}}
|