1247

最新推荐文章于 2021-04-08 15:17:09 发布

huangja

最新推荐文章于 2021-04-08 15:17:09 发布

阅读量225

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/huangja/article/details/55520892

Description

FJ打算带他的N(1 <= N <= 30,000)头奶牛去参加一年一度的“全美农场主大奖赛”。在这场比赛中，每个参赛者都必须让他的奶牛排成一列，然后领她们从裁判席前依次走过。
今年，竞赛委员会在接受队伍报名时，采用了一种新的登记规则：他们把所有队伍中奶牛名字的首字母取出，按它们对应奶牛在队伍中的次序排成一列（比如说，如果FJ带去的奶牛依次为Bessie、Sylvia、Dora，登记人员就把这支队伍登记为BSD）。登记结束后，组委会将所有队伍的登记名称按字典序升序排列，就得到了他们的出场顺序。
FJ最近有一大堆事情，因此他不打算在这个比赛上浪费过多的时间，也就是说，他想尽可能早地出场。于是，他打算把奶牛们预先设计好的队型重新调整一下。
FJ的调整方法是这样的：每次，他在原来队列的首端或是尾端牵出一头奶牛，把她安排到新队列的尾部，然后对剩余的奶牛队列重复以上的操作，直到所有奶牛都被插到了新的队列里。这样得到的队列，就是FJ拉去登记的最终的奶牛队列。
接下来的事情就交给你了：对于给定的奶牛们的初始位置，计算出按照FJ的调整规则所可能得到的字典序最小的队列。

Input

* 第1行: 一个整数：N
* 第2..N+1行: 第i+1行仅有1个'A'..'Z'中的字母，表示队列中从前往后数第i头奶牛名字的首字母

Output

* 第1..??行: 输出FJ所能得到的字典序最小的队列。每行（除了最后一行）输出恰好80个'A'..'Z'中的字母，表示新队列中每头奶牛姓名的首字母

Sample Input

6

A

C

D

B

C

B

Sample Output

ABCBCD

Data Constraint

var
        a,b,c,d,q1,q2,i,j,q3,q4,k:longint;
        f:array[1..30000]of char;
        s:ansistring;
procedure writ;
var
        i:longint;
begin
        for i:=1 to length(s) do
        begin
                write(s[i]);
                if i mod 80=0 then writeln;
        end;
        halt;
end;
begin
        //assign(input,'1.in');reset(input);
        readln(a);
        for b:=1 to a do
                readln(f[b]);
        i:=a;
        q1:=1;
        q2:=a;
        while i<>0 do
        begin
                if f[q1]<f[q2] then
                begin
                        s:=s+f[q1];
                        inc(q1);
                        dec(i);
                end
                        else
                if f[q2]<f[q1] then
                begin
                        s:=s+f[q2];
                        dec(q2);
                        dec(i);
                end
                        else
                if f[q2]=f[q1] then
                begin
                        q3:=q1;
                        q4:=q2;
                        k:=0;
                        while (f[q3]=f[q4])and(q3<>q4) do
                        begin
                                inc(q3);
                                dec(q4);
                                if f[q3]<f[q4] then
                                        k:=1;
                                if f[q4]<f[q3] then
                                        k:=2;
                                if q4<q3 then break;
                        end;
                        if k=0 then
                        begin
                                s:=s+f[q1];
                                inc(q1);
                                dec(i);
                        end;
                        if k=1 then
                        begin
                                s:=s+f[q1];
                                inc(q1);
                                dec(i);
                        end;
                        if k=2 then
                        begin
                                s:=s+f[q2];
                                dec(q2);
                                dec(i);
                        end;
                end;
                if i=1 then
                begin
                        s:=s+f[q1];
                        writ
                end;
        end;
        close(input);
end.