poj1989

一道非常神奇的题目

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.

稍微想想就明白了