正确结果应为:967
测试结果2: 测试结果错误.错误结果为:0
正确结果应为:1
测试结果3: 测试结果错误.错误结果为:0
正确结果应为:8
测试结果4: 测试结果错误.错误结果为:139
正确结果应为:145
测试结果5: 测试结果错误.错误结果为:0
正确结果应为:4
测试结果6: 测试结果错误.错误结果为:0
正确结果应为:7
测试结果7: 测试结果错误.错误结果为:14
正确结果应为:24
测试结果8: 测试结果错误.错误结果为:20
正确结果应为:37
测试结果9: 测试结果错误.错误结果为:0
正确结果应为:5
测试结果10: 通过本测试点|有效耗时63ms
提交代码: program taotao;
var i,n,m,p,k,l:longint;
a,b:array[-10000..10000] of longint;
procedure q(x,y:integer);
var i,j,k,mid:integer;
begin
i:=x;
j:=y;
mid:=a[(x+y) div 2];
repeat
while a[i]<mid do inc(i);
while a[j]>mid do dec(j);
if i<=j then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
inc(i);
dec(j);
end;
until i>j;
if i<y then q(i,y);
if x<j then q(x,j);
end;
procedure q1(x,y:integer);
var i,j,k,mid:integer;
begin
i:=x;
j:=y;
mid:=b[(x+y) div 2];
repeat
while b[i]<mid do inc(i);
while b[j]>mid do dec(j);
if i<=j then
begin
k:=b[i];
b[i]:=b[j];
b[j]:=k;
inc(i);
dec(j);
end;
until i>j;
if i<y then q1(i,y);
if x<j then q1(x,j);
end;
begin
readln(n,m); p:=0;
for i:=1 to n do
readln(a[i]);
q(1,n);
for i:=1 to m do
readln(b[i]);
q1(1,m);
k:=n;l:=m;
repeat
if a[k]>=b[l] then
begin
dec(k);
dec(l);
end else
begin
dec(l);
inc(p);
end;until l=0;
writeln(p);
readln;
end.