Description
现在电视台有一种节目叫做超级英雄,大概的流程就是每位选手到台上回答主持人的几个问题,然后根据回答问题的多少获得不同数目的奖品或奖金。主持人问题准备了若干道题目,只有当选手正确回答一道题后,才能进入下一题,否则就被淘汰。为了增加节目的趣味性并适当降低难度,主持人总提供给选手几个“锦囊妙计”,比如求助现场观众,或者去掉若干个错误答案(选择题)等等。 这里,我们把规则稍微改变一下。假设主持人总共有m道题,选手有n种不同的“锦囊妙计”。主持人规定,每道题都可以从两种“锦囊妙计”中选择一种,而每种“锦囊妙计”只能用一次。我们又假设一道题使用了它允许的锦囊妙计后,就一定能正确回答,顺利进入下一题。现在我来到了节目现场,可是我实在是太笨了,以至于一道题也不会做,每道题只好借助使用“锦囊妙计”来通过。如果我事先就知道了每道题能够使用哪两种“锦囊妙计”,那么你能告诉我怎样选择才能通过最多的题数吗?
Input
输入文件的一行是两个正整数n和m(0 < n <1001,0 < m < 1001)表示总共有n中“锦囊妙计”,编号为0~n-1,总共有m个问题。
以下的m行,每行两个数,分别表示第m个问题可以使用的“锦囊妙计”的编号。
注意,每种编号的“锦囊妙计”只能使用一次,同一个问题的两个“锦囊妙计”可能一样。
Output
第一行为最多能通过的题数p
Sample Input
5 6
3 2
2 0
0 3
0 4
3 2
3 2
Sample Output
4
太逗了,检查半天没检查出来
for i:=1 to n do
begin
if path(i)=false then break;
end;
write(i-1);
卧槽,这不是不可能全对吗?到n的时候会自己跳出来,输出n-1
![](https://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif)
1 var 2 n,m,tot,ans:longint; 3 flag:array[0..1010]of boolean; 4 b:array[0..1010]of longint; 5 first,last,next:array[0..2010]of longint; 6 7 procedure insert(x,y:longint); 8 begin 9 inc(tot); 10 last[tot]:=y; 11 next[tot]:=first[x]; 12 first[x]:=tot; 13 end; 14 15 function path(x:longint):boolean; 16 var 17 i:longint; 18 begin 19 i:=first[x]; 20 while i<>0 do 21 begin 22 if flag[last[i]] then 23 begin 24 flag[last[i]]:=false; 25 if (b[last[i]]=0)or(path(b[last[i]])) then 26 begin 27 b[last[i]]:=x; 28 exit(true); 29 end; 30 end; 31 i:=next[i]; 32 end; 33 exit(false); 34 end; 35 36 procedure main; 37 var 38 i,a1,a2:longint; 39 begin 40 read(m,n); 41 for i:=1 to n do 42 begin 43 read(a1,a2); 44 insert(i,a1+1); 45 insert(i,a2+1); 46 fillchar(flag,sizeof(flag),true); 47 if path(i) then inc(ans) 48 else break; 49 end; 50 write(ans); 51 end; 52 53 begin 54 main; 55 end.