【重走普及路】【贪心】合并果子

题目描述

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

    每一次合并，多多可以把两堆果子合并到一起，消耗的体力等于两堆果子的重量之和。可以看出，所有的果子经过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包括一行，这一行只包含一个整数，也就是最小的体力耗费值。输入数据保证这个值小于2^31。

输入输出样例

输入样例#1：

3
1 2 9

输出样例#1：

15

说明

对于30％的数据，保证有n<=1000： 
对于50％的数据，保证有n<=5000； 
对于全部的数据，保证有n<=10000

贪心就是只考虑眼前的利益。对于我们人生来说太贪是不好的，不过oi中，有时是对的。

从小到大排序，从1..n-1循环中，将数组前两个（果子）合并，累加到ans

然后将它们的t与数组其它元素比较（插入，更新）

贪心经典

——2015.12.26

var n,i,t,ans,j,k:longint;
a:array[1..10001] of longint;

procedure ok(l,r:longint);
var i,j,k,t:longint;
begin
i:=l;
j:=r;
k:=a[(i+j) div 2];
while i<=j do begin
while a[i]<k do inc(i);
while a[j]>k do dec(j);
if i<=j then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
inc(i);
dec(j);
end;
end;
if i<r then ok(i,r);
if j>l then ok(l,j);
end;

begin
readln(n);
for i:=1 to n do read(a[i]);
ok(1,n);
for i:=1 to n-1 do begin
t:=a[i+1]+a[i];
ans:=ans+t;
for j:=i+1 to n do if (t>=a[j])and(t<=a[j+1]) then break;
if j<>i+1 then for k:=i to j-1 do a[k]:=a[k+1];
a[j]:=t;
end;
writeln(ans);
end.