1640: [Usaco2007 Nov]Best Cow Line 队列变换

1640: [Usaco2007 Nov]Best Cow Line 队列变换

Time Limit: 5 Sec  Memory Limit: 64 MB
Submit: 543  Solved: 278
[Submit][Status]

Description

FJ打算带着他可爱的N (1 ≤ N ≤ 2,000)头奶牛去参加”年度最佳老农”的比赛.在比赛中,每个农夫把他的奶牛排成一列,然后准备经过评委检验. 比赛中简单地将奶牛的名字缩写为其头字母(the initial letter of every cow),举个例子,FJ带了Bessie, Sylvia,和Dora,那么就可以缩写为BSD. FJ只需将奶牛的一个序列重新排列,然后参加比赛.他可以让序列中的第一头奶牛,或者最后一头走出来,站到新队列的队尾. 利欲熏心的FJ为了取得冠军,他就必须使新队列的字典序尽量小. 给你初始奶牛序列(用头字母)表示,然后按照上述的规则组成新序列,并使新序列的字典序尽量小.

Input

第1行:一个整数N.

第2行至第N+1行:每行一个大写字母,表示初始序列中该奶牛的头字母.

Output

得到的最小字典序的序列.每输出80个字母需要一个换行!

Sample Input

6
A
C
D
B
C
B

Sample Output

ABCBCD

HINT

Source

Silver

 题解：呵呵呵，此题直接递归就行了，注意处理当两边相等时的情况（果然是弱化版的，朴素递归40ms我也是醉了）

var
   i,j,k,l,m,n:longint;
   s1:ansistring;
   c1:char;
function concern(s1:ansistring):ansistring;
         var
            i,j:longint;
         begin
              if length(s1)=1 then exit(s1);
              i:=1;j:=length(s1);
              while (i<j) and (s1[i]=s1[j]) do
                    begin
                         inc(i);
                         dec(j);
                    end;
              if s1[i]<=s1[j] then
                 concern:=s1[1]+concern(copy(s1,2,length(s1)-1))
              else
                  concern:=s1[length(s1)]+concern(copy(s1,1,length(s1)-1));
         end;
begin
     readln(n);
     s1:='';
     for i:=1 to n do
         begin
              readLN(c1);
              s1:=s1+c1;
         end;
     s1:=concern(s1);
     for i:=1 to length(s1) div 80 do
         writeln(copy(s1,i*80-79,80));
     if (length(s1) mod 80)>0 then
        writeln(copy(s1,length(s1)+1-(length(s1) mod 80),length(s1) mod 80));
end.