jzoj P1540 【USACO Open 2012铜】岛屿Islands

题目描述

每当下雨时，FJ的牧场都会进水。由于牧场地面高低不平，被水淹没的地方不是很统一，形成一些岛屿。

FJ的牧场可描述成一个一维的地形图，由N(1 <= N <= 100,000)个彼此相连的柱状的高度值组成。高度值为H(1)…H(n)。假定这个地形图的两端有两条无限高的墙围着。

当雨一直下时，地形图上最低的区域先被水淹没，形成一些不相邻的岛屿。一旦水面高度到达一个区域的高度，则认为这个区域被淹没。

左图，在当前水面时，有4个岛屿。右图，在水面升高后，剩下2个岛屿。显然，最终所有的区域都会沉入水面。

算出当雨从开始下到最后所有岛屿沉入水中，最多时可形成多少个岛屿。

输入

第1行：1个整数N

第2..N+1行：每行一个整数，表示一个区域的高度H(i). (1 <= H(i) <= 1,000,000,000)

输出

第1行: 1个整数，表示最多时能看到的岛屿数

样例输入

8

3

5

2

3

1

4

2

3

样例输出

4

排序+贪心：
1.把它连续的相同高度的合并成一个。
2.从小到大排序。
3.按顺序以此从最小高度淹没到最大高度，当淹没第x个时,如果相邻的2个都是比他高的，那淹了这个以后就分成了2个岛屿，ans+1，如果相邻的都被淹了，那就ans-1。
时间复杂度：O(4N)

var
   a,b,c:array [0..100001] of longint;
   i,j,g,n,ans,max,x:longint;

procedure qsort(l,r:longint);
var
   i,j,mid:longint;
begin
    if l>=r then exit;
    i:=l; j:=r;
    mid:=a[(l+r) div 2];
    repeat
        while (a[i]<mid) do inc(i);
        while (a[j]>mid) do dec(j);
        if i<=j then
           begin
               a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
               b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
               inc(i); dec(j);
           end;
    until i>j;
    if i<r then qsort(i,r);
    if l<j then qsort(l,j);

end;

begin
     assign(input,'islands.in'); reset(input);
     assign(output,'islands.out'); rewrite(output);
     readln(g);
     n:=0;
     for i:=1 to g do
          begin
              read(x);
              if x<>c[n] then
                 begin
                     inc(n);
                     c[n]:=x;
                     b[n]:=n;
                 end;
          end;
     a:=c;
     ans:=1;
     qsort(1,n);
     for i:=1 to n do
         begin
            if (c[b[i]-1]>c[b[i]]) and (c[b[i]+1]>c[b[i]])
               then inc(ans);
            if (c[b[i]-1]<=c[b[i]]) and (c[b[i]+1]<=c[b[i]])
               then dec(ans);
            if ans>max then max:=ans;
         end;
     writeln(max);
     close(input); close(output);
end.