pku2239 Selecting Courses

看到这个标题后我毅然交上了CTSC的树形DP，WA的结果不言而喻，囧

仔细读题后有两种思路：

1.把每个课程拆成两个点，对于时间发生矛盾的课之间

(i‘-->j)

(i-->j')

下面应该是一个最大独立集问题了，点数减匹配数即可

这个思路没有实践，如果有错，请指出。

2.很多人都用这种方法，二分图一边是84个时间点，另一边是课程，连边之后求最大匹配即可

program pku2239(input,output);
var
   f  : array[0..100,0..301] of boolean;
   lk : array[0..301] of longint;
   v  : array[0..301] of boolean;
   n  : longint;
procedure init;
var
   i,j,x,y,z : longint;
begin
   fillchar(f,sizeof(f),false);
   fillchar(lk,sizeof(lk),0);
   readln(n);
   for i:=1 to n do
   begin
      read(x);
      for j:=1 to x do
      begin
     read(y,z);
     f[(y-1)*12+z,i]:=true;
      end;
      readln;
   end;
end; { init }
function find(now :longint ):boolean;
var
   i : longint;
begin
   for i:=1 to n do
      if (f[now,i])and(not v[i]) then
      begin
     v[i]:=true;
     if (lk[i]=0)or(find(lk[i])) then
     begin
        lk[i]:=now;
        exit(true);
     end;
      end;
   exit(false);
end; { find }
function main():longint;
var
   i : longint;
begin
   main:=0;
   for i:=1 to 12*7 do
   begin
      fillchar(v,sizeof(v),false);
      if find(i) then
     inc(main);
   end;
end; { main }
begin
   while not eof do
   begin
      init;
      writeln(main);
   end;
end.