扑克游戏（小根堆）

扑克游戏
(poker)
题目描述:
有一棵无穷大的满二叉树，根为 start，其余所有点的权值为点到根的距离，如图：By LJNan
现在你有一些扑克牌，点数从 1 到 13，你要把这些扑克牌全部放到这个树上：
1. 当你把点数为 i 的扑克牌放在权值为 j 的点上，那么你会得到 i*j 的分数。
2. 当你把一个扑克牌放在一个节点上，那么你就不能把别的扑克牌放在这个节点以及
这个节点的子树上。
你的目标是最小化你的得分。

输入:文件名为 poker.in
输入第一行为一个数字 N，表示你有的扑克牌数；
接下来一行 N 个数字，数字在 1 到 13 之间。
输出:
文件名为 poker.out
一个数字，最小得分。
样例输入:
3
5 10 13
样例输出:
43

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

合并果子的变形稍作处理即可

program df;
var i,j,n,m,x,y,z,k,t,len,sum:longint;
a,b,c:array[0..100000] of longint;
procedure put(x:longint);
var i,j:longint;
begin
inc(len);
a[len]:=x;
i:=len;
while (i>1) and (a[i div 2]>a[i]) do
begin
j:=a[i div 2]; a[i div 2]:=a[i]; a[i]:=j;
i:=i div 2;
end;
end;
function get:longint;
var i,j,dd:longint;
begin
get:=a[1];
a[1]:=a[len];
dec(len);
i:=1;
while i*2<=len do
begin
if (i*2+1>len) or (a[i*2+1]>a[i*2]) then j:=i*2
else j:=i*2+1;
if a[i]>a[j] then
begin
dd:=a[i]; a[i]:=a[j]; a[j]:=dd;
i:=j;
end
else break;
end;
end;

begin
assign(input,’poker.in’);
reset(input);
assign(output,’poker.out’);
rewrite(output);
readln(n); len:=0;
for i:=1 to n do
begin
read(x);
put(x);
end;
sum:=0; t:=n;
while len>1 do
begin
z:=get+get;
sum:=sum+z;
put(z); //相当于把z加一倍
end;
writeln(sum);
close(input);
close(output);
end.