stall4.pas

来自「Magio牛的usaco源代码」· PAS 代码 · 共 56 行

{
ID:maigoak1
PROG:stall4
}

program stall4;
const
  max=200;
var
  fin,fout:text;
  g:array[1..max,1..max]of boolean;
  link:array[1..max]of byte;
  x,y:array[1..max]of boolean;
  n,m,i,j,k,l:byte;
function find(v:byte):boolean;
  var
    i:byte;
  begin
    x[v]:=true;
    for i:=1 to m do
      if g[v,i] and not y[i] then begin
        y[i]:=true;
        if (link[i]=0) or find(link[i]) then begin
          find:=true;link[i]:=v;exit;
        end;
      end;
    find:=false;
  end;
begin
  fillchar(g,sizeof(g),0);
  assign(fin,'stall4.in');
  reset(fin);
  readln(fin,n,m);
  for i:=1 to n do begin
    read(fin,j);
    for k:=1 to j do begin
      read(fin,l);
      g[i,l]:=true;
    end;
  end;
  close(fin);

  fillchar(link,sizeof(link),0);
  k:=0;
  for i:=1 to n do begin
    fillchar(x,sizeof(x),0);
    fillchar(y,sizeof(y),0);
    if find(i) then inc(k);
  end;

  assign(fout,'stall4.out');
  rewrite(fout);
  writeln(fout,k);
  close(fout);
end.