program sjda;

var

n,m,i,j,s,temp:longint;

bo:boolean;

a,b:array[1..maxint] of longint;

begin

readln(n,m);

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

i:=1; repeat bo:=true;

for j:=1 to m-i do

if b[j]>b[j+1] then begin

temp:=b[j]; b[j]:=b[j+1]; b[j+1]:=temp; bo:=false; end; inc(i); until bo;

i:=1;

for j:=1 to m do

begin if (a[i]>b[j]) and (b[j-1]>=0) and (b[i]>=0)

then begin b[j]:=0; inc(i); end; end;

for i:=1 to m do write(b[i]); writeln; for i:=1 to m do if b[i]0 then inc(s);

writeln(s); end.

├ 测试数据 01：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：答案错误...程序输出比正确答案长

├ 测试数据 03：答案错误...程序输出比正确答案长

├ 测试数据 04：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出

├ 测试数据 05：答案错误...程序输出比正确答案长

├ 测试数据 06：答案错误...程序输出比正确答案长

├ 测试数据 07：答案错误...程序输出比正确答案长

├ 测试数据 08：答案错误...程序输出比正确答案长

├ 测试数据 09：答案错误...程序输出比正确答案长

├ 测试数据 10：答案错误...

　├ Hint: 本Config.in为VijosConfig.ini制作工具生成,Copyright by CoVH Team　├ 标准行输出

　├ 错误行输出