2、種樹（trees.pas/c/cpp）

   【問題描述】

    一條街的一邊有幾座房子。因為環保原因居民想要在路邊種些樹。路邊的地區被分割成塊，並被編號為l…n。每個塊的大小為一個單位尺寸並最多可種一棵樹。每個居民想在門前種些樹並指定了三個號碼b，e，t。這三個數表示該居民想在b和e之間最少種t棵樹。當然，b≤e，居民必須保證在指定地區不能種多於地區被分割成塊數的樹，即要求t≤e-b+1，允許居民想種樹的各自區域可以交叉。出於資金短缺的原因，環保部門請你求出能夠滿足所有居民的要求，需要種樹的最少數量。

   【檔案輸入】

    第一行為n，表示區域的個數；第二行為h，表示房子的數目；下面h行描述居民的需要：b e t（0<b≤e≤30000，r≤e-b+l)分別用一個空格分開。

【檔案輸出】

輸出為滿足所有要求的最少樹的數量。

【樣飼輸入】

9

4

1 4 2

4 6 2

8 9 2

3 5 2

【樣例輸出】

5

【資料規模】

30%的資料滿足0<n≤1000，0<h≤500；100%的資料滿足n≤30000，h≤5000。

   【方法一】貪心

    題目中要求要種樹種得少，就要使一棵樹給多個區間使用，這樣，儘量在重疊區間種樹即可，而重疊位置一定是區間尾部。處理問題時，先按所有區間的結束位置排序，若結束位置相同，則按開始位置從大到小排序。之後依次處理每個區間，先在第一個區間尾部種滿足要求的樹，對下一個區間，看差多少棵就在該區間尾部種多少。

    【演算法步驟】

    1、先快排

    2、對每個區間依次處理

      a、從前到後掃描這個區間，統計點的個數；

      b、若點的個數超過了要求的點數，則continue,

      c、從該區間後向前掃描，新增覆蓋點。

    3、輸出ans

var a:array[0..50000] of boolean;
b,e,t:array[0..5000] of longint;
n,h,i,j,k,sum:longint;
procedure swap(var x,y:longint);
var k:longint;
begin
 k:=x; x:=y; y:=k;
end;
procedure f(l,r:longint);
var i,j,k,x,y:longint;
begin
 i:=l; j:=r; x:=e[(i+j) div 2]; y:=b[(i+j) div 2];
 repeat
  while (e[i]<x) or ((e[i]=x) and (b[i]<y)) do inc(i);
  while (e[j]>x) or ((e[j]=x) and (b[j]>y)) do dec(j);
  if i<=j then
   begin
    swap(b[i],b[j]); swap(e[i],e[j]); swap(t[i],t[j]);
    inc(i); dec(j);
   end;
 until i>j;
 if i<r then f(i,r);
 if l<j then f(l,j);
end;
begin
 assign(input,'tree.in'); assign(output,'tree.out');
 reset(input); rewrite(output);
 readln(n);
 readln(h);
 for i:=1 to h do
  readln(b[i],e[i],t[i]);
  f(1,h);
 for i:=1 to h do
  begin
  for j:=b[i] to e[i] do if a[j] then dec(t[i]);
  k:=e[i];
  for j:=1 to t[i] do
   begin
    while a[k] do dec(k);
    a[k]:=true; inc(sum);
   end;
  end;
 writeln(sum);
 close(input); close(output);
end.