program appztt；

  var
    i,j,k,m,n,temp:longint；
    tt,app:array[0..10000]of integer；

  begin

    readln(n,m)；
    for i:=1 to n do readln(app[i])；
    for i:=1 to m do readln(tt[i])；

    for i:=1 to m do
      for j:=i+1 to m do
        if tt[i]<tt[j] then
          begin
            temp:=tt[j]；
            tt[j]:=tt[i]；
            tt[i]:=temp；
          end；

    for i:=1 to n do
      for j:=1 to m do
        if (app[i]>tt[j]) and (tt[j]>0) then
          begin
            inc(k)；
            tt[j]:=-1；
            break；
          end；

    write(m-k)；

  end.