1191: [HNOI2006]超级英雄Hero - BZOJ

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

 

 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.

View Code