bzoj 1010: [HNOI2008]玩具装箱toy 2011-12-27

1010: [HNOI2008]玩具装箱toy

Time Limit: 1 Sec  Memory Limit: 162 MB
Submit: 2254  Solved: 744
[Submit][Status][Discuss]

DescriptionP 教授要去看奥运，但是他舍不下他的玩具，于是他决定把所有的玩具运到北京。他使用自己的压缩器进行压缩，其可以将任意物品变成一堆，再放到一种特殊的一维 容器中。P教授有编号为1...N的N件玩具，第i件玩具经过压缩后变成一维长度为Ci.为了方便整理，P教授要求在一个一维容器中的玩具编号是连续的。 同时如果一个一维容器中有多个玩具，那么两件玩具之间要加入一个单位长度的填充物，形式地说如果将第i件玩具到第j个玩具放到一个容器中，那么容器的长度 将为 x=j-i+Sigma(Ck) i<=K<=j 制作容器的费用与容器的长度有关，根据教授研究，如果容器长度为x,其制作费用为(X-L)^2.其中L是一个常量。P教授不关心容器的数目，他可以制作 出任意长度的容器，甚至超过L。但他希望费用最小. Input第一行输入两个整数N，L.接下来N行输入Ci.1<=N<=50000,1<=L,Ci<=10^7 Output输出最小费用 Sample Input5 4
3
4
2
1
4
Sample Output1
HINT

_________________________________________

Program Stone;
var i,j,n,l,head,tail:longint;
    s,f,y,que:array[0..100000]of int64;
 function delhead(i,j,k:longint):boolean;
  begin
    if y[j]-y[k]>(s[j]-s[k])*2*s[i] then exit(true) else exit(false);
  end;
 function deltail(i,j,k:longint):boolean;
  begin
   if (y[i]-y[j])*(s[j]-s[k])<(y[j]-y[k])*(s[i]-s[j]) then exit(true) else exit(false);
  end;
Begin
 assign(input,'input.in');reset(input);
  readln(n,l);
  for i:=1 to n do
   begin
    readln(s[i]);
    inc(s[i],s[i-1]);
   end;
  for i:=1 to n do s[i]:=s[i]+i;
  head:=0;tail:=0;
  for i:=1 to n do
   begin
     while (tail>head)and(delhead(i,que[head],que[head+1])) do inc(head);
     j:=que[head];
     f[i]:=f[j]+sqr(s[i]-s[j]-l-1);
     y[i]:=f[i]+sqr(s[i])+2*s[i]*(l+1);
     while (tail>head)and(deltail(i,que[tail],que[tail-1])) do dec(tail);
     inc(tail);
     que[tail]:=i;
   end;
  writeln(f[n]);
 close(input);
end.