2007年Usaco十二月赛题回顾:队列操作实战训练(BZOJ1640的升级挑战)
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
Gold
题解:啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊,弄死我了,终于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
上一篇: Vue下的模块化架构搭建设计