var m,n,h,r,x,i,ans:longint; a:array[0..1000]of boolean; eq:array[0..1000]of longint; begin readln(m,n); fillchar(a,sizeof(a),true); h:=1; r:=0; ans:=0; for i:=1 to n do begin read(x); if a[x] then begin if r+1-h=m then begin a[eq[h]]:=true; inc(h); end; inc(r); eq[r]:=x; a[x]:=false; inc(ans); end; end; writeln(ans); readln; readln; end.