woshimishuo 2011-07-26 20:08:00
点我顶贴
收藏
删除
var cpu:array[1..2000] of longint;
m,n,i,j,k,s,st,en:longint;
word:longint;
begin
readln(m,n);
st:=0;en:=0;s:=0;
for i:=1 to m do
cpu[i]:=-1;
for i:=1 to n do
begin
read(word);
k:=0;
for j:=1 to m do
if cpu[j]=word then k:=1;
if (k=0) then
begin
s:=s+1;
en:=en mod m+1;
if en=st then begin
st:=st mod m+1;
cpu[en]:=word;
end
else
cpu[en]:=word;
end;
end;
writeln(s);
end.