题目描述
在舞会上有N个男孩和N个女孩,每个人都量过了自己的身高。每个男孩只跟女孩跳舞,并且女孩也只跟男孩跳舞。每个人最
多只有一个舞伴。男孩或者想和比自己高的女孩跳舞,或者想和比自己低的女孩跳舞,同样的,女孩也是或者想和比自己高的男
孩跳舞,或者想和自己低的男孩跳舞。
你能决定最多有多少对能在一起跳舞么?
输入
第一行是一个正整数N(1<=N<=100000),表示男女的人数。第二行包括N个绝对值在1500到2500的整数,每个整数的绝对值表示每个男孩的身高。如果是一个正整数,表示这个男的喜欢和比他高的女孩跳舞,如果是负整数,就表示这个男的喜欢和比他低的女孩跳舞。第三行包括N个整数,每个整数的绝对值表示相应女孩的身高。同样的,如果是正整数的话,表示这个女孩喜欢和比她高的男孩跳舞,如果是负整数的话,表示这个女孩喜欢和比她低的男孩跳舞。
输出
只有一行一个整数,表示最多的可以搭配的对数。
数据范围限制
提示
程序:
var
n,i,m,tj,bz,w:longint;
a,b:array[0..100000]of longint;
procedure kp1(l,r:longint);
var
i,j,mid:longint;
begin
if l>=r then exit;
i:=l;j:=r;mid:=a[(l+r) div 2];
repeat
while a[i]>mid do inc(i);
while a[j]<mid do dec(j);
if i<=j then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
inc(i);dec(j);
end;
until i>j;
kp1(l,j);
kp1(i,r);
end;
procedure kp2(l,r:longint);
var
i,j,mid:longint;
begin
if l>=r then exit;
i:=l;j:=r;mid:=b[(l+r) div 2];
repeat
while b[i]>mid do inc(i);
while b[j]<mid do dec(j);
if i<=j then
begin
b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
inc(i);dec(j);
end;
until i>j;
kp2(l,j);
kp2(i,r);
end;
begin
readln(n);
for i:=1 to n do
read(a[i]);
readln;
for i:=1 to n do
read(b[i]);
kp1(1,n);
kp2(1,n);
for i:=1 to n do
if b[i]<0 then
begin
w:=i;
break;
end;
m:=n;tj:=0;
for i:=1 to n do
begin
bz:=0;
if bz=0 then
if a[i]<0 then
if b[m]<0 then
begin
m:=w-1;
bz:=1;
end;
if bz=0 then
if a[i]>0 then
if b[m]<0 then
if abs(b[m])>a[i] then
begin
inc(tj);
dec(m);
bz:=1;
end;
if bz=0 then
if a[i]<0 then
if b[m]>0 then
if b[m]<abs(a[i]) then
begin
inc(tj);
dec(m);
bz:=1;
end;
if m=0 then break;
end;
write(tj);
end.