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:
     User: HansBug
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 type
     point=^node;
     node=record
                g:longint;
                next:point;
     end;

 var
    i,j,k,l,m,n,pt:longint;
    c,f:array[..] of longint;
    a:array[..] 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]= 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:= to n do a[i]:=nil;
      for i:= to n do
          begin
               readln(j,k);
               add(j,i);add(k,i);
          end;
      fillchar(c,sizeof(c),);
      fillchar(f,sizeof(f),);
      pt:=;
      for i:= to  do
          begin
               inc(pt);
               if not(check(i)) then
                  begin
                       writeln(i-);
                       halt;
                  end;
          end;
      writeln();
 end.