种树

最新推荐文章于 2022-12-04 07:45:33 发布

歘_

最新推荐文章于 2022-12-04 07:45:33 发布

阅读量1.1k

点赞数

分类专栏：贪心文章标签：贪心

本文链接：https://blog.csdn.net/lcyzlcl/article/details/49205119

版权

贪心专栏收录该内容

2 篇文章 0 订阅

订阅专栏

题目描述

Description
一条街的一边有几座房子。因为环保原因居民想要在路边种些树。路边的地区被分割成块，并被编号为1…n。每个块的大小为一个单位尺寸并最多可种一裸树。每个居民想在门前种些树并指定了三个号码b，e，t。这三个数表示该居民想在b和e之间最少种t棵树。当然，b≤e，居民必须保证在指定地区不能种多于地区被分割成块数的树，即要求T≤ e-b+1。允许居民想种树的各自区域可以交叉。出于资金短缺的原因，环保部门请你求出能够满足所有居民的要求，需要种树的最少数量。
输入描述 Input Description
第一行为n，表示区域的个数；
第二行为h，表示房子的数目；
下面h行描述居民的需要：
bet（0< b≤30000,r ≤e-b+ 1）分别用一个空格分开。
输出描述 Output Description
输出为满足所有要求的最少树的数量。
样例输入 Sample Input
9
4
1 4 2
4 6 2
8 9 2
3 5 2
样例输出 Sample Output
5
数据范围及提示 Data Size & Hint
【数据规模】
30％的数据满足0＜n ≤1000，0＜h ≤ 500； 100%的数据满足n ≤30000，h ≤5000。

思路

贪心，要种树种得少，就要使一棵树给多个区间使用，这样，尽量在重叠区间种树即可。处理问题时，先按所有区间的结束位置排序，若结束位置相同，则按开始位置排序。之后依次处理每个区间，先在第一个区间尾部种满足要求的树，对下一个区间，看差多少棵就在该区间尾部种多少。

看看代码就see了

type
  rec=record
    b,e,t:longint;
    end;
var ans,n,h,i,j:longint;
    a:array[1..5000]of rec;
    can:array[1..30000]of 0..1;
procedure qsort(b,e:longint);
var l,r,m:longint;
     t:rec;
begin
  l:=b;r:=e;m:=a[(l+r)>>1].e;
  while l<r do
    begin
      while a[l].e<m do inc(l);
      while m<a[r].e do dec(r);
      if l<=r then
        begin
          t:=a[l];
          a[l]:=a[r];
          a[r]:=t;
          inc(l);
          dec(r);
        end;
    end;
  if l<e then qsort(l,e);
  if b<r then qsort(b,r);
end;

procedure find;
var have,need,i,j,k:longint;
begin
  for i:=1 to n do can[i]:=0;
  for i:=1 to h  do
    begin
      have:=0;
      for j:=a[i].b to a[i].e do if can[j]=1 then inc(have);
      need:=a[i].t-have;
      if need>0 then
      for j:=a[i].e downto a[i].b do
        if can[j]=0 then
                       begin
                         if need=0 then break;
                         can [j]:=1;dec(need);
                         inc(ans);
                       end
                    else continue;

    end;
end;

begin

  readln(n);
  readln(h);
  for i:=1 to h do readln(a[i].b,a[i].e,a[i].t);
  qsort(1,h);
  ans:=0;
  find;
  write(ans);

end.

运行结果
测试点#trees1.in 结果:AC 内存使用量: 128kB 时间使用量: 1ms 
测试点#trees10.in 结果:AC 内存使用量: 256kB 时间使用量: 43ms 
测试点#trees2.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms 
测试点#trees3.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms 
测试点#trees4.in 结果:AC 内存使用量: 256kB 时间使用量: 1ms 
测试点#trees5.in 结果:AC 内存使用量: 256kB 时间使用量: 8ms 
测试点#trees6.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms 
测试点#trees7.in 结果:AC 内存使用量: 256kB 时间使用量: 71ms 
测试点#trees8.in 结果:AC 内存使用量: 256kB 时间使用量: 0ms 
测试点#trees9.in 结果:AC 内存使用量: 256kB 时间使用量: 42ms