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)= then exit(s1);
               i:=;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[]+concern(copy(s1,,length(s1)-))
               else
                   concern:=s1[length(s1)]+concern(copy(s1,,length(s1)-));
          end;
 begin
      readln(n);
      s1:='';
      for i:= to n do
          begin
               readLN(c1);
               s1:=s1+c1;
          end;
      s1:=concern(s1);
      for i:= to length(s1) div  do
          writeln(copy(s1,i*-,));
      if (length(s1) mod )> then
         writeln(copy(s1,length(s1)+-(length(s1) mod ),length(s1) mod ));
 end.