2017.04.15【NOIP2017提高组】模拟赛B组 T1:偷懒的小X

Description

话说3008年的Orz教主节，全民狂欢，传递教主圣火，以致万人空巷，股票飞涨。真乃锣鼓喧天，鞭炮齐鸣，红旗招展，人山人海呐。可是小X为了准备NOIP3008，不得不待在家里好好Coding。小X希望早点结束当天的任务，加入圣火传递队伍中去。
在这个不亚于狂欢节的日子里，小X的老师却“公然违抗”休假法令，布置小X写一个小根堆，但是小X不会堆的操作，所以想了一个偷懒的办法：
　　堆是一棵完全二叉树，每个结点有一个权。小根堆的根的权最小，且根的两个子树也是一个堆。可以用一个数组a来记录一棵完全二叉树，a[1]为根结点，若结点a[j]不是根结点，那么它的父亲为a[j/2]（取下整）；若结点a[k]不是叶子结点，那么它的左儿子为a[2k]，它的右儿子为a[2k+1]。
　　他希望一组数据按一定顺序依次插入数组中（即第i个数为a[i]），最后得出来就已经是一个堆，即不需要任何交换操作，若有多种方法，输出字典序最大的一组，显得这个数据更乱。

Input

输入的第1行为一个正整数n，为插入的数字的个数。
　　第2行包含n个正整数，为所有需要插入的数字，数字之间用空格隔开。
　　为了简化题目，数据保证n=2^k-1，即保证最后的堆是一棵满二叉树。

Output

输出包括1行，为插入的序列，数字之间用空格隔开，行末换行并没有空格。

Sample Input

3
10 2 1

Sample Output

1 10 2

Data Constraint

Hint

【样例说明】
　　1 2 10与1 10 2都是满足要求的插入序列，但是1 10 2的字典序更大。

【数据规模】
　　对于20%的数据，n≤7；
　　对于30%的数据，n≤15；
　　对于50%的数据，n≤1023；
　　对于100%的数据，n≤65535，所有数字不超过10^8，且各不相同。

题解：
本题主要是堆的操作。于是，在草稿本上画一画就明白啦。
首先，用一个排序，然后就尽量把大数往左子树塞。
标程：

var
        i,j,k,l,r,mid,n,m:longint;
        t,f:array[1..65535] of longint;
procedure qs(l,r:longint);
var
        i,j,m,k:longint;
begin
        i:=l;
        j:=r;
        m:=f[(l+r) div 2];
        repeat
                while f[i]<m do inc(i);
                while f[j]>m do dec(j);
                if i<=j then
                begin
                        k:=f[i];
                        f[i]:=f[j];
                        f[j]:=k;
                        inc(i);
                        dec(j);
                end;
        until i>j;
        if l<j then qs(l,j);
        if i<r then qs(i,r);
end;
procedure maketree(l,r,dep:longint);
var
        i,j,k,nl,nr,nmid:longint;
begin
        if l=r then
        begin                   
                exit;
        end;
        if l<r then
        begin
                nl:=l;
                nr:=r;
                nmid:=(nl+nr) div 2;
                t[dep*2]:=f[nmid+1];
                t[dep*2+1]:=f[nl+1];
                maketree(nmid+1,r,dep*2);
                maketree(l+1,nmid,dep*2+1);
        end;
end;
begin
        readln(n);
        for i:=1 to n do
        begin
                read(f[i]);
        end;
        qs(1,n);
        t[1]:=f[1];
        l:=2;
        r:=n;
        mid:=(l+r) div 2;
        t[2]:=f[mid+1];
        t[3]:=f[l];
        maketree(mid+1,r,2);
        maketree(l,mid,3);
        for i:=1 to n do write(t[i],' ');
        writeln;
end.