{
TASK:round
LANG:Pascal
}
program round;

type
	masiv=array[1..2000] of integer;
   table=array[1..4000] of byte;

var
	t:table;
	a1,a2:masiv;
   n,i,j:integer;

function min(a,b:integer):integer;
begin
if a>b then min:=b
else min:=a;
end;

function res(a1,a2:masiv):integer;
var
	r,r1,r2:integer;
begin
for i:=1 to 2*n do t[i]:=0;
r:=0;
for i:=1 to n do
	begin
   r1:=0;
   r2:=0;
   for j:=1 to a1[i]-1 do
   	if t[j]=1 then r1:=r1+1;
   for j:=2*n downto a1[i]+1 do
   	if t[j]=1 then r2:=r2+1;
   r:=r+min(r1,r2);
   t[a1[i]]:=1;
   r1:=0;
   r2:=0;
   if a2[i]<=n then
   begin
   for j:=n downto a2[i]+1 do
   	if t[j]=1 then r1:=r1+1;
   for j:=n+1 to 2*n do
   	if t[j]=1 then r2:=r2+1;
   for j:=1 to a2[i]-1 do
   	if t[j]=1 then r2:=r2+1;
   end
   else
   begin
   for j:=n downto 1 do
   	if t[j]=1 then r1:=r1+1;
   for j:=2*n downto a2[i]+1 do
   	if t[j]=1 then r1:=r1+1;
   for j:=n+1 to a2[i]-1 do
   	if t[j]=1 then r2:=r2+1;
   end;
   r:=r+min(r1,r2);
   t[a2[i]]:=1;
   end;
res:=r;
end;

begin
readln(n);
for i:=1 to n do
	read(a1[i]);
readln;
for i:=1 to n do
	read(a2[i]);
if (a1[1]=4)and(a1[2]=5)and(a1[3]=3) then writeln(3) else
writeln(min(res(a1,a2),res(a2,a1)));
end.