[CODEVS1048]石子归并

 时间限制: 1 s
 空间限制: 128000 KB
 题目等级 : 黄金 Gold
题目描述 Description
有n堆石子排成一列，每堆石子有一个重量w[i], 每次合并可以合并相邻的两堆石子，一次合并的代价为两堆石子的重量和w[i]+w[i+1]。问安排怎样的合并顺序，能够使得总合并代价达到最小。
输入描述 Input Description
第一行一个整数n（n<=100）
第二行n个整数w1,w2...wn  (wi <= 100)
输出描述 Output Description
一个整数表示最小合并代价
样例输入 Sample Input
4
4 1 1 4
样例输出 Sample Output
18

var  
  w:array[0..105]of longint;  
  f,sum:array[0..105,0..105]of longint;  
  i,n,j,x,y,k:longint;  
function min(x,y:longint):longint;  
  begin  
    if x>y  
      then min:=y  
      else min:=x  
  end;  
begin  
  readln(n);  
  for i:=1 to n do  
    read(w[i]);  
  fillchar(sum,sizeof(sum),0);  
  fillchar(f,sizeof(f),char(-1));  
  for i:=1 to n do  
    for j:=1 to n do  
      for k:=i to j do  
        inc(sum[i,j],w[k]);  
  for i:=n-1 downto 1 do  
    for j:=i+1 to n do  
      begin  
        f[i,j]:=maxlongint;  
        for k:=i to j do  
          f[i,j]:=min(f[i,j],f[i,k]+f[k+1,j]+sum[i,j])  
      end;  
  writeln(f[1,n]);  
end.