> program poj1274;
> var map:array[0..205,0..205] of boolean;
> match:array[0..205] of integer;
> v:array[0..205] of boolean;
> i,j,n,m,ans,k,p:longint;
> 
> function find(s:integer):boolean;
> var i:integer;
> begin
> find:=false;
> for i:=1 to m do
>   if map[s,i] then
>     if not v[i] then
>       begin
>       v[i]:=true;
>       if (match[i]=0) or find(match[i]) then
>         begin
>         match[i]:=s;
>         exit(true);
>         end;
>       end;
> exit(false);
> end;
> 
> begin
> while not eof do
> begin
> fillchar(match,sizeof(match),0);
> fillchar(map,sizeof(map),0);
> readln(n,m);
> for i:=1 to n do
>  begin
>  read(k);
>  for j:=1 to k do
>    begin
>    read(p);
>    map[i,p]:=true;
>    end;
>  end;
> ans:=0;
> for i:=1 to n do
>   begin
>   fillchar(v,sizeof(v),false);
>   if find(i) then inc(ans);
>   end;
> writeln(ans);
> end;
> end.

• Re:WHY WA? (23) moonster 2010-02-23 17:46:43