最小可相交路径覆盖

先预处理可到达的点然后转化为最小不相交路径覆盖

 1 type node=record
 2        point,next:longint;
 3      end;
 4 
 5 var edge:array[0..101000] of node;
 6     p,cx,cy:array[0..200] of longint;
 7     v:array[0..200] of boolean;
 8     a,b:array[0..200,0..200] of boolean;
 9     j,len,n,m,x,y,ans,i:longint;
10 
11 procedure add(x,y:longint);
12   begin
13     inc(len);
14     edge[len].point:=y;
15     edge[len].next:=p[x];
16     p[x]:=len;
17   end;
18 
19 function find(x:longint):longint;
20   var i,y:longint;
21   begin
22     i:=p[x];
23     while i<>-1 do
24     begin
25       y:=edge[i].point;
26       if not v[y] then
27       begin
28         v[y]:=true;
29         if (cy[y]=-1) or (find(cy[y])>0) then
30         begin
31           cx[x]:=y;
32           cy[y]:=x;
33           exit(1);
34         end;
35       end;
36       i:=edge[i].next;
37     end;
38     exit(0);
39   end;
40 
41 procedure dfs(x:longint);
42   var i:longint;
43   begin
44     v[x]:=true;
45     for i:=1 to n do
46       if a[x,i] and not v[i] then dfs(i);
47   end;
48 
49 begin
50   readln(n,m);
51   fillchar(p,sizeof(p),255);
52   for i:=1 to m do
53   begin
54     readln(x,y);
55     a[x,y]:=true;
56   end;
57   for i:=1 to n do
58   begin
59     fillchar(v,sizeof(v),false);
60     dfs(i);
61     for j:=1 to n do
62       if v[j] and (i<>j) then
63         add(i,j);
64   end;
65   fillchar(cx,sizeof(cx),255);
66   fillchar(cy,sizeof(cy),255);
67   for i:=1 to n do
68     if cx[i]=-1 then
69     begin
70       fillchar(v,sizeof(v),false);
71       ans:=ans+find(i);
72     end;
73   writeln(n-ans);
74 end.
View Code

 

posted on 2014-06-07 14:55  acphile  阅读(142)  评论(0编辑  收藏  举报