(JZ3794)2018.07.10【2018提高组】模拟C组 2.【NOIP2014模拟8.20】高级打字机

【NOIP2014模拟8.20】高级打字机 (Standard IO)

Description

早苗入手了最新的高级打字机。最新款自然有着与以往不同的功能，那就是它具备撤销功能，厉害吧。
请为这种高级打字机设计一个程序，支持如下3种操作：
T x：在文章末尾打下一个小写字母x。(type操作)
U x：撤销最后的x次修改操作。（Undo操作）（注意Query操作并不算修改操作）
Q x：询问当前文章中第x个字母并输出。（Query操作）文章一开始可以视为空串。

Input

第1行：一个整数n，表示操作数量。
以下n行，每行一个命令。保证输入的命令合法。

Output

每行输出一个字母，表示Query操作的答案。

Sample Input

7
T a
T b
T c
Q 2
U 2
T c
Q 2

Sample Output

b
c

Data Constraint

对于40%的数据 n<=200;
对于100%的数据 n<=100000；保证Undo操作不会撤销Undo操作。
<高级挑战>
对于200%的数据 n<=100000；Undo操作可以撤销Undo操作。

题解：

   本题100%为暴力模拟╮(╯▽╰)╭。
   180%为建立一个[1..100000]的ansistring数组，用来保存每一个版本的文章，再用j记录总共有多少个版本，T的话就版本数+1，并且新的版本就等于上一个版本的末尾+x，如果是U的话，其实就是取第ans-x-1个版本，Q就是输出当前的版本的第k个字符。(但是会超内存哦┑(￣Д ￣)┍)
   200%为180%+动态数组。（这个动态数组空间是20000，为什么呢，因为小了的话就会答案错误（U x中的x），大了的话就容易空间超限）
   IOI挑战为主席树（洛谷上只有这样才能AC，但我不会啊(:зゝ∠)）

const m=20000;
var
 a:array[0..m]of ansistring;
 s,ss:string;
 n,i,j,x:longint;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(s);
   if s[1]='T' then
    begin
     inc(j);
     a[j mod m]:=a[(j-1) mod m]+s[3];
    end;
   if s[1]='U' then
    begin
     inc(j);
     delete(s,1,2);
     val(s,x);
     a[j mod m]:=a[(j-x-1) mod m];
    end;
   if s[1]='Q' then
    begin
     delete(s,1,2);
     val(s,x);
     writeln(a[j mod m][x]);
    end;
  end;
end.