BZOJ1345: [Baltic2007]序列问题Sequence

1345: [Baltic2007]序列问题Sequence

Time Limit: 5 Sec  Memory Limit: 162 MB
Submit: 556  Solved: 274
[Submit][Status]

Description

对于一个给定的序列a1, …, an，我们对它进行一个操作reduce(i)，该操作将数列中的元素ai和ai+1用一个元素max(ai，ai+1)替代，这样得到一个比原来序列短的新序列。这一操作的代价是max(ai，ai+1)。进行n-1次该操作后，可以得到一个长度为1的序列。我们的任务是计算代价最小的reduce操作步骤，将给定的序列变成长度为1的序列。

Input

第一行为一个整数n( 1 <= n <= 1,000,000 )，表示给定序列的长度。接下来的n行，每行一个整数ai（0 <=ai<= 1, 000, 000, 000），为序列中的元素。

Output

只有一行，为一个整数，即将序列变成一个元素的最小代价。

Sample Input

3
1
2
3

Sample Output

5

HINT

30%的测试数据 n<=500；
50%的测试数据 n <= 20,000。

Source

题解：

想了一中午无果，果断膜拜了hzwer的题解。。。

单调栈的解法还需要好好品味，看来我需要做一些单调栈的练习。

代码：

 var ans:int64;
     i,n,x,top:longint;
     sta:array[..] of longint;
 procedure main;
  begin
    readln(n);
    sta[]:=maxlongint;top:=;ans:=;
    for i:= to n do
     begin
       readln(x);
       while (top>) and (x>=sta[top]) do
        begin
          if x>=sta[top-] then inc(ans,sta[top-])
          else inc(ans,x);
          dec(top);
        end;
       inc(top);sta[top]:=x;
     end;
    for i:= to top- do inc(ans,sta[i]);
    writeln(ans);
  end;

 begin
   assign(input,'input.txt');assign(output,'output.txt');
   reset(input);rewrite(output);
   main;
   close(input);close(output);
 end.