石子归并

1048 石子归并
 时间限制: 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.