lineup.pas

Magio牛的usaco源代码

{
PROG:lineup
LANG:PASCAL
}

program lineup;
const
  maxn=100000;
  maxk=10000;
var
  fin,fout:text;
  v:array[1..maxk]of boolean;
  n,k,ans,x,i,found:longint;
begin
  assign(fin,'lineup.in');
  reset(fin);
  readln(fin,n,k);
  ans:=1;
  fillchar(v,sizeof(v),0);
  found:=0;
  for i:=1 to n do begin
    readln(fin,x);
    if not v[x] then begin
      v[x]:=true;
      inc(found);
      if found=k then begin
        inc(ans);
        fillchar(v,sizeof(v),0);
        found:=0;
      end;
    end;
  end;
  close(fin);

  assign(fout,'lineup.out');
  rewrite(fout);
  writeln(fout,ans);
  close(fout);
end.