3410: [Usaco2009 Dec]Selfish Grazing 自私的食草者

3410: [Usaco2009 Dec]Selfish Grazing 自私的食草者

Time Limit: 3 Sec  Memory Limit: 128 MB
Submit: 71  Solved: 62
[Submit][Status][Discuss]

Description

    约翰有N(1≤N≤50000)头牛，约翰的草地可以认为是一条直线．每只牛只喜欢在某个特定的范围内吃草．第i头牛喜欢在区间(Si，Ei)吃草，1≤Si<Ei≤1,000,000,00.

    奶牛们都很自私，他们不喜欢和其他奶牛共享自己喜欢吃草的领域，因此约翰要保证任意

两头牛都不会共享他们喜欢吃草昀领域．如果奶牛i和奶牛J想要同时吃草，那么要满足：Si>=Ej或者Ei≤Sj．约翰想知道在同一时刻，最多可以有多少头奶牛同时吃草？

Input

    第1行：一个整数N．

    第2到N+1行：第i+l行有两个整数Si，Ei．

Output

 

    一个整数，最多可以有多少头牛同时吃草．

Sample Input

5
2 4
1 12
4 5
7 10
7 8

Sample Output

3

HINT

 

  第1，3，4共3只奶牛可以同时吃草，第1，3，5也可以．

 

Source

Silver

 

题解：贪心水题一道= =。。。很明显对于同样的右界限区间，显然选范围最小的肯定没有错，于是只保留范围小的，然后排序，贪心水过。。。

/**************************************************************
    Problem: 3410
    User: HansBug
    Language: Pascal
    Result: Accepted
    Time:212 ms
    Memory:696 kb
****************************************************************/
 
var
   i,j,k,l,m,n,t:longint;
   a:array[0..60000,1..2] of longint;
procedure swap(var x,y:longint);
          var z:longint;
          begin
               z:=x;x:=y;y:=z;
          end;
procedure sort(l,r:longint);
          var i,j,x,y:longint;
          begin
               i:=l;j:=r;x:=a[(l+r) div 2,2];y:=a[(l+r) div 2,1];
               repeat
                     while (a[i,2]<x) or ((a[i,2]=x) and (a[i,1]>y)) do inc(i);
                     while (a[j,2]>x) or ((a[j,2]=x) and (a[j,1]<y)) do dec(j);
                     if i<=j then
                        begin
                             swap(a[i,1],a[j,1]);
                             swap(a[i,2],a[j,2]);
                             inc(i);dec(j);
                        end;
               until i>j;
               if i<r then sort(i,r);
               if l<j then sort(l,j);
          end;
begin
     readln(n);
     for i:=1 to n do readln(a[i,1],a[i,2]);
     sort(1,n);
     a[0,1]:=0;a[0,2]:=0;
     t:=0;l:=0;
     for i:=1 to n do
         if a[i,2]<>a[i-1,2] then
            if a[i,1]>=t then
               begin
                    t:=a[i,2];
                    inc(l);
               end;
     writeln(l);
     readln;
end.