火烧赤壁 洛谷 vijos

题目大意

给出n，a[i],b[i]，为n个数，从a到b的船只被烧毁求出所有被烧毁的船只的和。

思路：

听说是2005 普及组数据加强版，然后成了提高组+的题？？？？不就是加了一个离散化嘛…
思路就是给a排序，然后用b来进行比较，分为比前面的最大b值大和小两种情况，分别讨论加上对答案的影响。

程序：

var
i,n,max,z:longint;
a,b:array[0..100000] of longint;
procedure init;
var
i:longint;
begin
readln(n);
for i := 1 to n do
begin
readln(a[i],b[i]);
end;
end;
procedure qsort(l,r:longint);
var
i,j,m,t:longint;
begin
i := l;
j := r;
m := a[(i+j) div 2];
repeat
while a[i]<m do inc(i);
while a[j]>m do dec(j);
if i<=j then
begin
t := a[i];
a[i] := a[j];
a[j] := t;
t := b[i];
b[i] := b[j];
b[j] := t;
inc(i);
dec(j);
end;
until i>=j;
if i<r then qsort(i,r);
if l<j then qsort(l,j);
end;
procedure main;
var
i:longint;
begin
z := b[1]-a[1];
max := b[1];
for i := 2 to n do
begin
if (a[i]<max) and (b[i]>max) then
begin
z := z+b[i]-max;
max := b[i];
end
else
begin
if (a[i]>max) then
begin
z := z+b[i]-a[i];
max := b[i];
end;
end;
end;
writeln(z);
end;
begin
init;
qsort(1,n);
main;
end.