一道非常神奇的题目
var v:array[0..10010] of boolean;
n,k,i,x,ans,s:longint;
begin
readln(n,k);
fillchar(v,sizeof(v),false);
ans:=1;
for i:=1 to n do
begin
readln(x);
if not v[x] then
begin
inc(s);
if s=k then
begin
fillchar(v,sizeof(v),false);
inc(ans);
s:=0;
end
else v[x]:=true;
end;
end;
writeln(ans);
end.
稍微想想就明白了