let _ = int_of_string (read_line())
let s = read_line()
let vs = Str.split (Str.regexp " ") s |> List.map int_of_string
let rec loop = function
 | [] -> [],[]
 | [a] -> [a],[]
 | a::b::xs ->
   let aa,bb = loop xs in
   a::aa,b::bb

let vs1,vs2=loop vs

let f vs =
  let m = List.fold_left(fun m v ->
        let c = if List.mem_assoc v m then List.assoc v m else 0 in
        (v,c+1)::m
  ) [] vs in
  let (v,c) = List.fold_left(fun (mv,mc) (v,c) ->
    if c > mc then (v,c) else (mv,mc)
  ) (0,0) m in
  c

let vm1=f vs1
let vm2=f vs2
let n = (List.length vs1-vm1)+(List.length vs2-vm2)
let _ =
  Printf.printf "%d\n" n
