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

  校门外的树

    某校大门外长度为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.xa[j].y)) do dec(j);
    while (a[i].xx.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 ilast 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.