测评机： Xeond[6]

得分： 0分

提交日期： 2010-7-5 18:36:00

有效耗时： 该状态没有记录

测试结果1: 选手程序运行超过时限

测试结果2: 选手程序无输出

测试结果3: 选手程序无输出

测试结果4: 选手程序无输出

测试结果5: 选手程序无输出

测试结果6: 测试结果错误.错误结果为:0

正确结果应为:7

测试结果7: 选手程序运行超过时限

测试结果8: 测试结果错误.错误结果为:0

正确结果应为:37

测试结果9: 测试结果错误.错误结果为:0

正确结果应为:5

测试结果10: 测试结果错误.错误结果为:0

正确结果应为:139

提交代码：

program dsfsd;

var a,t:array [0..1000] of integer;

m,n,i,ans,j:integer;

procedure quick(l,r:integer);

var i,j,x:integer;

begin

i:=l;j:=r;x:=t[(l+r)shr 1];

repeat;

while t[i]>x do inc(i);

while t[j]<x do dec(j);

if i<=j then begin t[0]:=t[i];t[i]:=t[j];t[j]:=t[0];inc(i);dec(j);end;

until i>j;

if l<j then quick(l,j);

if i<r then quick(i,r);

end;

procedure slove;

var i,j:integer;

begin

ans:=m;

for i:=1 to n do

for j:=1 to m do

if a[i]>t[j] then begin dec(ans);t[j]:=maxint;break;end;

end;

begin

readln(n,m);

for i:=1 to n do readln(a[i]);

for j:=1 to m do readln(t[j]);

quick(1,m);

slove;

writeln(ans);

end.