1854: [Scoi2010]游戏

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

3
1 2
3 2
4 5

Sample Output

2

HINT

【数据范围】
对于30%的数据，保证N < =1000
对于100%的数据，保证N < =1000000

Source

Day1

 

题解：此题一拿到，不难发现是一个比较明显的二分图匹配，可是如phile神犇所言（orzPhile2333），匈牙利算法的时间复杂度为O(NM)，可是此题中实际上N<=10000 M<=1000000,这不是必死无疑的节奏么——可是貌似裸的匈牙利算法还是妥妥Accept了。。。so神奇。。。求高人解释

/**************************************************************
    Problem: 1854
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:3396 ms
    Memory:43248 kb
****************************************************************/
 
type
    point=^node;
    node=record
               g:longint;
               next:point;
    end;
 
var
   i,j,k,l,m,n,pt:longint;
   c,f:array[0..1000500] of longint;
   a:array[0..1000500] of point;
function min(x,y:longint):longint;inline;
         begin
              if x<y then min:=x else min:=y;
         end;
procedure add(x,y:longint);inline;
          var p:point;
          begin
               new(p);
               p^.g:=y;
               p^.next:=a[x];
               a[x]:=p;
          end;
function check(x:longint):boolean;inline;
          var p:point;
          begin
               p:=a[x];
               while p<>nil do
                     begin
                          if f[p^.g]<>pt then
                             begin
                                  f[p^.g]:=pt;
                                  if c[p^.g]=0 then
                                     begin
                                          c[p^.g]:=x;
                                          exit(true);
                                     end
                                  else if check(c[p^.g]) then
                                       begin
                                            c[p^.g]:=x;
                                            exit(true);
                                       end;
                             end;
                          p:=p^.next;
                     end;
               exit(false);
          end;
begin
     readln(n);
     for i:=1 to n do a[i]:=nil;
     for i:=1 to n do
         begin
              readln(j,k);
              add(j,i);add(k,i);
         end;
     fillchar(c,sizeof(c),0);
     fillchar(f,sizeof(f),0);
     pt:=0;
     for i:=1 to 10000 do
         begin
              inc(pt);
              if not(check(i)) then
                 begin
                      writeln(i-1);
                      halt;
                 end;
         end;
     writeln(10000);
end.