东东的舞会 （小根堆）

东东的舞会(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]))) dobegin 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;beginf[1]:=f[t];l[1]:=l[t];r[1]:=r[t];dec(t);tt:=1;while (tt*2<=t) dobegin 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*2else 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;endelse 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);repeatwhile 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.