求助!!合并果子!!!|NOIP2011 - OI爱好者（OIFans.cn）

离线贾森

只看楼主倒序阅读 0 发表于: 2007-11-09

who can tell me how to do it?
在一个果园里，多多已经将所有的果子打了下来，而且按果子的不同种类分成了不同的堆。多多决定把所有的果子合成一堆。

每一次合并，多多可以把两堆果子合并到一起，消耗的体力等于两堆果子的重量之和。可以看出，所有的果子经过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。

分享到 淘江湖新浪 QQ微博 QQ空间开心人人豆瓣网易微博百度鲜果白社会飞信

离线121371490

OIFans初赛选手

只看该作者 1 发表于: 2007-11-09

const maxn=20000;
var i,k,n:integer;
sum,temp,temp1:longint;
a:array[1..maxn] of longint;
ha,hb,tb:integer;
procedure adjust(i,n:integer);
var temp:longint;j:integer;
begin
while i<=n div 2 do begin
j:=i+i;
if j<n then if a[j]>a[j+1] then j:=j+1;
if a<a[j] then break
else begin temp:=a;a:=a[j];a[j]:=temp;i:=j;end;
end;
end;
procedure heap_sort(n:integer);
var temp:longint;i:integer;
begin
for i:=n div 2 downto 1 do adjust(i,n);
for i:=n-1 downto 1 do begin
temp:=a[i+1];a[i+1]:=a[1];a[1]:=temp;
adjust(1,i);
end;
end;
begin
readln(n);
for i:=1 to n do read(a);
heap_sort(n);
sum:=0;temp:=0;k:=0;
ha:=n;hb:=n;tb:=n+1;
while (ha>=1) or (hb>=tb) do begin
k:=k+1;
if ha<1 then begin
temp1:=a[hb];
hb:=hb-1;
end
else if hb<tb then begin
temp1:=a[ha];
ha:=ha-1;
end
else if a[ha]<a[hb] then begin
temp1:=a[ha];
ha:=ha-1;
end
else begin
temp1:=a[hb];
hb:=hb-1;
end;
temp:=temp+temp1;
if k mod 2=0 then begin
sum:=sum+temp;
tb:=tb-1;a[tb]:=temp;
temp:=0;
end;
end;
writeln(sum);
end.