火烧赤壁 vijos_1165 洛谷_1496 （离散）

题目描述

曹操平定北方以后，公元208年，率领大军南下，进攻刘表。他的人马还没有到荆州，刘表已经病死。他的儿子刘琮听到曹军声势浩大，吓破了胆，先派人求降了。

孙权任命周瑜为都督，拨给他三万水军，叫他同刘备协力抵抗曹操。

隆冬的十一月，天气突然回暖，刮起了东南风。

没想到东吴船队离开北岸大约二里距离，前面十条大船突然同时起火。火借风势，风助火威。十条火船，好比十条火龙一样，闯进曹军水寨。那里的船舰，都挤在一起，又躲不开，很快地都烧起来。一眨眼工夫，已经烧成一片火海。

曹操气急败坏的把你找来，要你钻入火海把连环线上着火的船只的长度统计出来！

输入输出格式

输入格式：

第一行：N

以后N行，每行两个数：Ai Bi(表示连环线上着火船只的起始位置和终点,-10^9<=Ai,Bi<=10^9)

输出格式：

输出着火船只的总长度

输入输出样例

输入样例#1： 

3
-1 1
5 11
2 9

输出样例#1： 

11

说明

n<=20000

如果Ai=Bi是一个点则看作没有长度

var
 i,j,k,l,n,head,tail:longint;
 a:array[0..20001] of longint;
 x,y:array[0..20001] of longint;
 max:int64;
procedure qsort(l,r:longint);
 var
 i,j,key,t:longint;
begin
 i:=l;
 j:=r;
 key:=x[(l+r) div 2];
 repeat
  while x[i]<key do inc(i);
  while x[j]>key do dec(j);
  if i<=j then
   begin
    t:=x[i]; x[i]:=x[j]; x[j]:=t;
    t:=y[i]; y[i]:=y[j]; y[j]:=t;
    inc(i);
    dec(j);
   end;
 until i>j;
 if l<j then qsort(l,j);
 if i<r then qsort(i,r);
end;

begin
 readln(n);
 for i:=1 to n do
   readln(x[i],y[i]);
 qsort(1,n);
 head:=x[1];
 tail:=y[1];
 k:=0;
 for i:=2 to n do
  begin
   if (x[i]<=tail) then
    begin
      if tail<y[i] then tail:=y[i];
     end
                    else begin
                     inc(k);
                     a[k]:=tail-head;
                     head:=x[i];
                     tail:=y[i];
                     end;
  end;
 inc(k);
 a[k]:=tail-head;
 for i:=1 to k do
  max:=max+a[i];
 writeln(max);
end.