codeves天梯 合并果子

 在一个果园里，多多已经将所有的果子打了下来，而且按果子的不同种类分成了不同的堆。多多决定把所有的果子合成一堆。

    每一次合并，多多可以把两堆果子合并到一起，消耗的体力等于两堆果子的重量之和。可以看出，所有的果子经过n-1次合并之后，就只剩下一堆了。多多在合并果子时总共消耗的体力等于每次合并所耗体力之和。

    因为还要花大力气把这些果子搬回家，所以多多在合并果子时要尽可能地节省体力。假定每个果子重量都为1，并且已知果子的种类数和每种果子的数目，你的任务是设计出合并的次序方案，使多多耗费的体力最少，并输出这个最小的体力耗费值。

    例如有3种果子，数目依次为1，2，9。可以先将1、2堆合并，新堆数目为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，数目为12，耗费体力为12。所以多多总共耗费体力=3+12=15。可以证明15为最小的体力耗费值。

分析：经典题就不解释了，这里的合并果子数据不大，所以就用了归并排序兼合并求解。

var
  a:array[0..10000] of longint;
  n,total:longint;
  i:integer;

procedure swap(var a,b:longint);
var
  t:integer;
begin
  t:=a; a:=b; b:=t;
end;

procedure quick_sort(m,n:integer);
var
  i,j,x:integer;
begin
  i:=m; j:=n; x:=a[(i+j) div 2];
  repeat
    while a[i]>x do inc(i);
    while x>a[j] do dec(j);
    if i<=j then
      begin
        swap(a[i],a[j]);
        inc(i); dec(j);
      end;
  until i>j;
  if m<j then quick_sort(m,j);
  if i<n then quick_sort(i,n);
end;

procedure insert_sort(n:integer);
var
  i,j:integer;
begin
  i:=n-1; a[0]:=a[n];
  while a[i]<a[0] do
    begin
      a[i+1]:=a[i];
      dec(i);
  end;
  a[i+1]:=a[0];
end;

begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  quick_sort(1,n);
  for i:=1 to n-1 do
  begin
    a[n-i]:=a[n-i]+a[n-i+1];
    a[n-i+1]:=0;
    inc(total,a[n-i]);
    insert_sort(n-i);
  end;
  writeln(total);
end.