JZOJ_7.10C组第三题高级打字机_jzoj 高级-优快云博客

本文介绍了一种使用Pascal语言模拟文本编辑器操作的方法，包括插入、撤销及查询特定位置字符的功能。通过记录每一步操作的状态，可以高效地处理复杂的编辑指令。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题意

给一个打字机，有三种操作：1、T x 在文章末尾打下一个小写字母x；2、U x 撤销最后的x次操作（Q算操作）；3、Q x 查询文章的第x位是什么字母。50分保证U不会撤销U，100分U会撤销U。

思路

有人用主席树的，还有一些神奇的东西，我这里用pascal直接模拟。用a[i]记录第i次操作时文章的状态，T操作时直接在a后面插入字符，U操作就让当前的跳回a[i-x-1]状态，查询就直接输出a[][x]就好了，因为它在前面操作时会产生一些没用的状态，所以我们滚动一下好了。

代码

var
  a:array[0..20001] of ansistring;//a[i]记录第i次操作字符串的状态
  s,c:ansistring;
  i,j,k,n,m,st:longint;
procedure print;
var
  k,len:longint;
  wz:string;
begin
  len:=length(c);
  wz:=copy(c,3,len-2);
  val(wz,k);
  writeln(a[j mod 20000][k]);
end;
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(c);
      if c[1]='T' then
      begin
        inc(j);
        a[j mod 20000]:=a[(j-1) mod 20000]+c[3];//在文章末尾上插入x
      end;
      if c[1]='U' then
      begin
        inc(j);
        delete(c,1,2);
        val(c,st);
        a[j mod 20000]:=a[(j-st-1) mod 20000];//当前状态就=a[i-x-1]状态
      end;
      if c[1]='Q' then print;
    end;
end.