合并果子
【问题描述】
在一个果园里，多多已经将所有的果子打了下来，而且按果子的不同种类分成了不同的堆。多多决定把所有的果子合成一堆。
每一次合并，多多可以把两堆果子合并到一起，消耗的体力等于两堆果子的重量之和。可以看出，所有的果子经过n-1次合并之后，就只剩下一堆了。多多在合并果子时总共消耗的体力等于每次合并所耗体力之和。
因为还要花大力气把这些果子搬回家，所以多多在合并果子时要尽可能地节省体力。假定每个果子重量都为1，并且已知果子的种类数和每种果子的数目，你的任务是设计出合并的次序方案，使多多耗费的体力最少，并输出这个最小的体力耗费值。
例如有3种果子，数目依次为1，2，9。可以先将1、2堆合并，新堆数目为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，数目为12，耗费体力为12。所以多多总共耗费体力=3+12=15。可以证明15为最小的体力耗费值。
【输入文件】
输入文件fruit.in包括两行，第一行是一个整数n(1<＝n<=10000)，表示果子的种类数。第二行包含n个整数，用空格分隔，第i个整数ai(1<＝ai<=20000)是第i种果子的数目。
【输出文件】
输出文件fruit.out包括一行，这一行只包含一个整数，也就是最小的体力耗费值。输入数据保证这个值小于231。
【样例输入】
3
1 2 9
【样例输出】
15
【数据规模】
对于30％的数据，保证有n<=1000：
对于50％的数据，保证有n<=5000；
对于全部的数据，保证有n<=10000。
———————————————————————————————————————————
pascal代码（含有计算时间）：
uses sysutils;
type point=^pp;
pp=record
data:longint;
link:point;
end;
abc=array[0..10000] of longint;
var p1,p2,p3,h:point;a:abc;n,i,j:longint; f1,f2:text; g,x:longint;
procedure quicksort(var z:abc;s,t:longint);
var i,j,x:integer;
begin
i:=s;j:=t;x:=z[s];
while i<j do
begin
while (z[j]>=x) and (j>i) do j:=j-1;
if j>i then begin
z[i]:=z[j];
i:=i+1;
end;
while (z[i]<=x) and (i<j) do i:=i+1;
if i<j then begin
z[j]:=z[i];
j:=j-1;
end;
z[i]:=x;
end;
if (s<(i-1)) then quicksort(z,s,i-1);
if ((i+1)<t) then quicksort(z,i+1,t);
end;
procedure inserting(var head:point;x:longint);
var po,p,q:point;
begin
new(po);po^.data:=x;
p:=head;
if head=nil then begin
head:=po;po^.link:=nil;
end else begin
while (p^.data<x) and (p^.link<>nil) do begin
q:=p;p:=p^.link;
end;
if p^.data>=x then begin
if head=p then head :=po else q^.link:=po;
po^.link:=p;
end else begin
p^.link:=po;
po^.link:=nil;
end;
end;
end;
var t1:tdatetime;
begin
t1:=now;
assign(f1,'e:\os\lx\fruit.in');
reset(f1);
g:=0;
readln(f1,n);
writeln(n);
for i:= 1 to n do
read(f1,a[i]);
quicksort(a,1,n);
new(p1);h:=p1;
for i:= 1 to n do begin
p1^.data:=a[i];
new(p2);
p1^.link:=p2;
if i=n then p1^.link:=nil;
new(p1);
p1:=p2;
end;
if h^.link^.link<>nil then begin
repeat x:=h^.data+h^.link^.data;
g:=g+x;
h:=h^.link^.link;
inserting(h,x);
until (h^.link^.link= nil);
g:=g+h^.link^.data+h^.data;
end else begin
g:=g+h^.link^.data+h^.data;
end;
writeln(g);
close(f1);
assign(f2,'e:\os\lx\fruit.out');
rewrite(f2);
writeln(f2,g);
close(f2);
writeln('use',(now-t1)*86400:2:3,'seconds');
readln;
readln;
end.
