program Project1;
var a:array [0..100] of integer;
    i,n,m,s,x,j,q:integer;
begin
       readln(m,n);
       for i:=0 to 100 do a[i]:=1050;
       s:=0;
       for i:=1 to n do
                begin
                q:=0;
                    read(x);
                    for j:=1 to m do
                        if a[j]=x then q:=1;
                    if q=0 then
                       begin
                            s:=s+1;
                            for j:=m downto 2 do
                                a[j]:=a[j-1];
                            a[1]:=x;
                       end;
                end;
       writeln(s);
end.
                   
/**************************************************************
	Problem: 2296
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/