题目描述
曹操平定北方以后,公元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.