1854: [Scoi2010]遊戲

Time Limit: 5 Sec Memory Limit: 162 MB

Submit: 2538 Solved: 905

[Submit][Status]

Description

lxhgww最近迷上了一款遊戲，在遊戲裡，他擁有很多的裝備，每種裝備都有2個屬性，這些屬性的值用[1,10000]之間的數表示。當他使用某種裝備時，他隻能使用該裝備的某一個屬性。并且每種裝備最多隻能使用一次。遊戲進行到最後，lxhgww遇到了終極boss，這個終極boss很奇怪，攻擊他的裝備所使用的屬性值必須從1開始連續遞增地攻擊，才能對boss産生傷害。也就是說一開始的時候，lxhgww隻能使用某個屬性值為1的裝備攻擊boss，然後隻能使用某個屬性值為2的裝備攻擊boss，然後隻能使用某個屬性值為3的裝備攻擊boss……以此類推。現在lxhgww想知道他最多能連續攻擊boss多少次？

Input

輸入的第一行是一個整數N，表示lxhgww擁有N種裝備接下來N行，是對這N種裝備的描述，每行2個數字，表示第i種裝備的2個屬性值

Output

輸出一行，包括1個數字，表示lxhgww最多能連續攻擊的次數。

Sample Input

1 2

3 2

4 5

Sample Output

HINT

【資料範圍】

對于30%的資料，保證N < =1000

對于100%的資料，保證N < =1000000

Source

Day1

題解：此題一拿到，不難發現是一個比較明顯的二分圖比對，可是如phile神犇所言（orzPhile2333），匈牙利算法的時間複雜度為O(NM)，可是此題中實際上N<=10000 M<=1000000,這不是必死無疑的節奏麼——可是貌似裸的匈牙利算法還是妥妥Accept了。。。so神奇。。。求高人解釋

1 /**************************************************************
 2     Problem: 1854
 3     User: HansBug
 4     Language: Pascal
 5     Result: Accepted
 6     Time:3396 ms
 7     Memory:43248 kb
 8 ****************************************************************/
 9  
10 type
11     point=^node;
12     node=record
13                g:longint;
14                next:point;
15     end;
16  
17 var
18    i,j,k,l,m,n,pt:longint;
19    c,f:array[0..1000500] of longint;
20    a:array[0..1000500] of point;
21 function min(x,y:longint):longint;inline;
22          begin
23               if x<y then min:=x else min:=y;
24          end;
25 procedure add(x,y:longint);inline;
26           var p:point;
27           begin
28                new(p);
29                p^.g:=y;
30                p^.next:=a[x];
31                a[x]:=p;
32           end;
33 function check(x:longint):boolean;inline;
34           var p:point;
35           begin
36                p:=a[x];
37                while p<>nil do
38                      begin
39                           if f[p^.g]<>pt then
40                              begin
41                                   f[p^.g]:=pt;
42                                   if c[p^.g]=0 then
43                                      begin
44                                           c[p^.g]:=x;
45                                           exit(true);
46                                      end
47                                   else if check(c[p^.g]) then
48                                        begin
49                                             c[p^.g]:=x;
50                                             exit(true);
51                                        end;
52                              end;
53                           p:=p^.next;
54                      end;
55                exit(false);
56           end;
57 begin
58      readln(n);
59      for i:=1 to n do a[i]:=nil;
60      for i:=1 to n do
61          begin
62               readln(j,k);
63               add(j,i);add(k,i);
64          end;
65      fillchar(c,sizeof(c),0);
66      fillchar(f,sizeof(f),0);
67      pt:=0;
68      for i:=1 to 10000 do
69          begin
70               inc(pt);
71               if not(check(i)) then
72                  begin
73                       writeln(i-1);
74                       halt;
75                  end;
76          end;
77      writeln(10000);
78 end.