东东的舞会 （小根堆）

东东的舞会(dance.pas/.c/.cpp)
题目描述
东东的幼儿园举办舞会，一共有N个小朋友参加。
老师让所有的小朋友站成一列，从左开始编号，最左边的小朋友编号为1，最右边的为N。每个小朋友跳舞的熟练度我们用一个整数来表示，第i个小朋友的熟练度为ai，每次相邻小朋友熟练度最接近的一对会出列跳舞，如果有多对那么最左边的那一对会先出列。
东东是个爱思考的孩子，他想如果出列的小朋友不再回到队伍当中的话，那么出列的顺序是什么样的呢？
输入格式
第一行是一个正整数 N。
第二行N个由空格隔开的正整数，第i个正整数ai，表示队列中第i个小朋友的跳舞熟练度。
输出格式
一行，表示按顺序出列的小朋友的编号。（一对小朋友编号小的在前。）
样例输入
5
5 3 2 1 8
样例输出
2 3 1 4
数据范围与约定
对于 40% 的数据，1≤N≤1000
对于 100% 的数据，1≤N≤10000，1≤ai≤100000

看到题目第一眼就知道是堆，写了很久，但是评测之后发现数据很水，同学的暴力枚举都能AC。
模拟赛的解题报告如下：

考虑到N是1w的，恐怕很多同学就不敢写O(n^2)的暴力算法了， 其实本题每次删除的是两个元素，所以算法就是O( n2/4)。AC无压力。 本题也可以使用单链表来解决

自己维护小根堆然后瞬间ac的代码：

program mys;

var  i,j,k,m,n,nn,t,tt,t1,t2:longint;
a,f,l,r,zz,yy:array[0..300000]of longint;
b:array[0..300000]of boolean;

procedure put(x,y:longint);
var p,tt:longint;
begin 
inc(t);
f[t]:=abs(a[x]-a[y]);
l[t]:=x; r[t]:=y;
tt:=t;
while (tt>1)and((f[tt]<f[tt div 2])or((f[tt]=f[tt div 2])and(l[tt]<l[tt div 2]))) do
begin 
p:=f[tt]; f[tt]:=f[tt div 2]; f[tt div 2]:=p;
p:=l[tt]; l[tt]:=l[tt div 2]; l[tt div 2]:=p;
p:=r[tt]; r[tt]:=r[tt div 2]; r[tt div 2]:=p;
tt:=tt div 2;
end;
end;

procedure pop;
var p,tt,son:longint;
begin
f[1]:=f[t];
l[1]:=l[t];
r[1]:=r[t];
dec(t);
tt:=1;
while (tt*2<=t) do
begin 
if (tt*2+1>t) or ((f[tt*2])<f[tt*2+1])or((f[tt*2]=f[tt*2+1])and(l[tt*2]<l[tt*2+1])) then 
son:=tt*2
else son:=tt*2+1;
if (f[son]<f[tt])or((f[tt]=f[son])and(l[son]<l[tt])) then 
begin 
p:=f[tt]; f[tt]:=f[son]; f[son]:=p;
p:=l[tt]; l[tt]:=l[son]; l[son]:=p;
p:=r[tt]; r[tt]:=r[son]; r[son]:=p;
tt:=son;
end
else break;
end;
end;


begin 
assign(input,'dance.in');reset(input);
assign(output,'dance.out');rewrite(output);
readln(n);
nn:=n;
for i:=1 to n do 
read(a[i]);
for i:=1 to n do 
begin 
zz[i]:=i-1;
yy[i]:=i+1;
end;
fillchar(b,sizeof(b),false);
for i:=1 to n-1 do 
put(i,i+1);

repeat
while b[l[1]]or b[r[1]] do pop;
if l[1]<r[1] then write(l[1],' ',r[1],' ')
else write(r[1],' ',l[1],' ');
b[r[1]]:=true; b[l[1]]:=true;
t1:=zz[l[1]]; 
t2:=yy[r[1]];
zz[t2]:=t1;
yy[t1]:=t2;
n:=n-2;
pop;
if (t1>0)and(t2<=nn) then 
begin 
put(t1,t2); 
end;
until n<2;

close(input);
close(output);
end.