1692: [Usaco2007 Dec]队列变换
Time Limit: 5 Sec Memory Limit: 64 MB
Submit: 682 Solved: 280
[Submit][Status]
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
输入说明:
FJ有6头顺次排好队的奶牛：ACDBCB
Sample Output
ABCBCD
输出说明:
操作数 原队列 新队列
#1 ACDBCB
#2 CDBCB A
#3 CDBC AB
#4 CDB ABC
#5 CD ABCB
#6 D ABCBC
#7 ABCBCD
HINT
Source
题解：啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊，弄死我了，终于AC了。。。网上说是后缀数组，可惜我8会（我是渣请无视），于是我只好开始了漫漫的优化bzoj1640程序的历程——首先，bzoj1640的程序直接交上去的结果是MLE（呵呵那是必然——弄不好的话就是30000曾循环，每层会有个长度达30000的字符串，这个内存不爆才怪，更何况30000×30000就算不爆内存也肯定超时！！！），于是我发现，之前的程序容易被卡常数，原因在于当出现高度对称的字符串时，每层都要来一遍O(n)，导致最后复杂度成了O(n^2)，内存也成了30000×30000×2B，于是不要递归啦，但是思路不变，注意优化常数——当两边粗线一大长串对称时，可以按照不同状况来进行批量处理（可是每次批量处理的字符必须和两边的相等，因为判断回文出现中断时完全可能已经出现过很多种字符了，这样子直接全跑了有时候会WA，所以用两个循环分别处理），然后批啊批，批啊批，最后伟大的我好不容易批出了760kB 984ms的Accept。。。
1 var 2 i,j,k,l,m,n:longint; 3 a:array[0..30000] of longint; 4 s1:ansistring; 5 c1:char; 6 function concern(s1:ansistring):ansistring; 7 var 8 i,j,k,a1,a2,i1,j1,i2,j2:longint; 9 s2:ansistring; 10 begin 11 i:=1;j:=length(s1);k:=0; 12 while i<=j do 13 begin 14 i1:=i;j1:=j;i2:=i;j2:=j; 15 while (i2<j2) and (s1[i2]=s1[j2]) do 16 begin 17 inc(i2); 18 dec(j2); 19 end; 20 while (i1<j1) and (s1[i1]=s1[j1]) and (s1[i1]=s1[i]) do 21 begin 22 inc(i1); 23 dec(j1); 24 end; 25 if i1=i then 26 begin 27 if s1[i1]<s1[j1] then 28 begin 29 inc(k); 30 a[i]:=k; 31 inc(i); 32 end 33 else 34 begin 35 inc(k); 36 a[j]:=k; 37 dec(j); 38 end; 39 end 40 else 41 begin 42 if s1[i2]<=s1[j2] then 43 begin 44 for a1:=i to i1-1 do 45 begin 46 inc(k); 47 a[a1]:=k; 48 end; 49 if s1[i1]>s1[i] then 50 begin 51 for a1:=j downto j1+1 do 52 begin 53 inc(k); 54 a[a1]:=k; 55 end; 56 j:=j1; 57 end; 58 i:=i1; 59 end 60 else 61 begin 62 for a1:=j downto j1+1 do 63 begin 64 inc(k); 65 a[a1]:=k; 66 end; 67 if s1[j1]>s1[i] then 68 begin 69 for a1:=i to i1-1 do 70 begin 71 inc(k); 72 a[a1]:=k; 73 end; 74 i:=i1; 75 end; 76 j:=j1; 77 end 78 end; 79 end; 80 s2:=‘‘; 81 for i:=1 to length(s1) do s2:=s2+‘ ‘; 82 for i:=1 to length(s1) do 83 begin 84 s2[a[i]]:=s1[i]; 85 end; 86 exit(s2); 87 end; 88 begin 89 readln(n); 90 s1:=‘‘; 91 for i:=1 to n do 92 begin 93 readLN(c1); 94 s1:=s1+c1; 95 end; 96 s1:=concern(s1); 97 for i:=1 to length(s1) div 80 do 98 writeln(copy(s1,i*80-79,80)); 99 if (length(s1) mod 80)>0 then 100 writeln(copy(s1,length(s1)+1-(length(s1) mod 80),length(s1) mod 80)); 101 readln; 102 end. 103