【离散化扫描】 校门外的树{加强版}

  校门外的树

    某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。

由于马路上有一些区域要用来建地铁。这些区域用它们在数轴上的起始点和终止点表示。已知任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。现在要把这些区域中的树（包括区域端点处的两棵树）移走。你的任务是计算将这些树都移走后，马路上还有多少棵树。

 

输入格式

    输入文件tree.in的第一行有两个整数L、M，L代表马路的长度，M代表区域的数目，L和M之间用一个空格隔开。接下来的M行每行包含两个不同的整数，用一个空格隔开，表示一个区域的起始点和终止点的坐标。

输出格式

 输出文件tree.out包括一行，这一行只包含一个整数，表示马路上剩余的树的数目。

 

输入样例

 500 3

150 300

100 200

470 471

 

输出样例

 298

数据范围：

1 <= L <= 1000000， 1 <= M <= 10000

==============================

=====================

type
  node=record
         x,y:longint;
       end;
var
  l,m:longint;
  a:array[1..10000]of node;
procedure init;
begin
  assign(input,'tree.in');
  assign(output,'tree.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure qsort(s,t:longint);
var
  i,j:longint;
  x,tem:node;
begin
  i:=s; j:=t;
  x:=a[(s+t)shr 1];
  repeat
    while (x.x<a[j].x)or((x.x=a[j].x)and(x.y>a[j].y)) do dec(j);
    while (a[i].x<x.x)or((x.x=a[i].x)and(a[i].y>x.y)) do inc(i);
    if i<=j then
      begin tem:=a[i]; a[i]:=a[j]; a[j]:=tem; inc(i); dec(j); end;
  until i>j;
  if i<t then qsort(i,t);
  if s<j then qsort(s,j);
end;

procedure main;
var
  i:longint;
  tot:longint;
  last:longint;
begin
  readln(l,m);
  for i:=1 to m do readln(a[i].x,a[i].y);
  qsort(1,m);
  inc(l);
  tot:=a[1].y-a[1].x+1;
  last:=a[1].y;
  for i:=2 to m do
    begin
      if a[i].x<=last then
        begin
          if a[i].y>last then
            begin
              tot:=tot+a[i].y-last;
              last:=a[i].y;
            end;
        end
        else
          begin
            tot:=tot+a[i].y-a[i].x+1;
            last:=a[i].y;
          end;
    end;
  writeln(l-tot);
end;

begin
  init;
  main;
  terminate;
end.