[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[..]of longint;
  f,sum:array[..,..]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:= to n do
    read(w[i]);
  fillchar(sum,sizeof(sum),);
  fillchar(f,sizeof(f),char(-));
  for i:= to n do
    for j:= to n do
      for k:=i to j do
        inc(sum[i,j],w[k]);
  for i:=n- downto  do
    for j:=i+ 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+,j]+sum[i,j])
      end;
  writeln(f[,n]);
end.