RosettaCodeData/Task/Variable-declaration-reset/J/variable-declaration-reset-4.j

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
}}