poker——合并果子变形

题目描述

有一棵无穷大的满二叉树，根为start，其余所有点的权值为点到根的距离，如图：



现在你有一些扑克牌，点数从1到13，你要把这些扑克牌全部放到这个树上：

1. 当你把点数为i的扑克牌放在权值为j的点上，那么你会得到i*j的分数。
2. 当你把一个扑克牌放在一个节点上，那么你就不能把别的扑克牌放在这个节点以及这个节点的子树上。

你的目标是最小化你的得分。

输入

输入第一行为一个数字N，表示你有的扑克牌数；
接下来一行N个数字，数字在1到13之间。

输出

一行一个整数，表示你的最小得分

样例输入

3 5 10 13

样例输出

43

提示

数据范围：
30%数据 N<=100
100%数据满足1<=N<=10000

样例说明：



分析就略过了。。

合并果子是经典题目吧。。。。

开始其实没看出来是合并果子。。。。

后来才发现。

我的方法是快排+插排。就这样。

var
i,j:longint;
ans,n,m,k,l,bb:int64;
a:array[0..30000]of int64;
procedure sort(l,r:longint);
var
i,j,x:longint;
begin
i:=l;j:=r;
x:=a[(l+r)>>1];
repeat
while a[i]<x do inc(i);
while a[j]>x do dec(j);
if i<=j then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
inc(i);dec(j);
end;
until i>j;
if i<r then sort(i,r);
if l<j then sort(l,j);
end;
begin
readln(n);
a[n+1]:=maxlongint*10000000;
for i:=1 to n do read(a[i]);
sort(1,n);
for i:=2 to n-1 do
begin
a[i]:=a[i]+a[i-1];
ans:=ans+a[i];
for j:=i+1 to n+1 do
if (a[i]<a[j])and(a[i]>=a[j-1]) then begin bb:=j-1;break;end;
k:=a[i];
for j:=i to bb-1 do a[j]:=a[j+1];
a[bb]:=k;
end;
writeln(ans+a[n-1]+a
);
end.