高级打字机 C组模拟赛

题目大意：

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

---

解题思路：

1.主席树(没打这种，平时题目多，改完就改别的或者写博客什么的，没时间)

建一个线段树，保存第一次操作，然后后面的操作建立在前面的操作之上，就是一颗主席树，至于撤销撤销操作，只需要把撤销当做一种操作就好了(撤销就等于前一次操作不做)
记住，查询不能算是一次操作

2.块状链表




出自__AiR_H大佬
用栈记录撤销

3.滚动
滚20000(Pascal)就不会爆内存而且还不会WA，C语言的string占用内存太大了，一万两千左右个string(这道题)就MLE了，开小呢就WA，开大呢就MLE
于是为了方便我用了Pascal

源程序：

var
 sans:array[0..20000]of ansistring;
 s:string;
 n,i,k,u,p,fuck:longint;
procedure Tint(i:longint);//T操作
begin
 sans[i]:=sans[((i-2)+20000)mod 20000+1]+s;
end;
procedure Uint(i,u:longint);//U操作
begin
 sans[i]:=sans[((i-u-2)+20000)mod 20000+1];
end;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(s);
   if (s[1]='T') then
    begin
     delete(s,1,2);
     Tint((i-p-1)mod 20000+1);
    end
   else
   if (s[1]='U') then
    begin
     delete(s,1,2);
     for k:=1 to length(s) do
      u:=u*10+ord(s[k])-48;
     Uint((i-p-1)mod 20000+1,u);
     u:=0;
    end
   else
   if (s[1]='Q') then
    begin
     inc(p);
     delete(s,1,2);
     for k:=1 to length(s) do
      u:=u*10+ord(s[k])-48;
     writeln(sans[(i-p-1)mod 20000+1][u]);//查询
     u:=0;
    end;
  end;
end.