def lscan; gets.split.map(&:to_i); end
def bye(msg); puts msg.to_s; exit; end
n = gets.to_i
a = [nil]*n
q = nil
warn = false
lscan.each do |v|
  v -= 1
  next if v == q
  q = v
  if a[v]
    bye '-1' if warn
    warn = true
  end
  a[v] = true
end
if warn
  p 1
else
  p 0
end