WIKIOI 3243 区间翻转

3243 区间翻转 

题目描述 Description

给出N个数，要求做M次区间翻转（如1 2 3 4变成4 3 2 1），求出最后的序列

输入描述 Input Description

第一行一个数N，下一行N个数表示原始序列，在下一行一个数M表示M次翻转，之后的M行每行两个数L，R表示将区间[L,R]翻转。

输出描述 Output Description

一行N个数 ， 表示最终序列。

样例输入 Sample Input

4

1 2 3 4

2

1 2

3 4

样例输出 Sample Output

2 1 4 3

数据范围及提示 Data Size & Hint

对于30%的数据满足n<=100 , m <= 10000

对于100%的数据满足n <= 150000 , m <= 150000

对于100%的数据满足n为2的幂，且L = i * 2^j + 1 , R = (i + 1) * 2^j

题解：

要不要这么卡时啊。。。不加inline就不能过？

代码：

{$inline on}
const maxn=150000+100;
var s,id,fa,a:array[0..maxn] of longint;
    rev:array[0..maxn] of boolean;
    c:array[0..maxn,0..1] of longint;
    i,n,m,rt,x,y:longint;
    procedure swap(var x,y:longint);inline;
     var t:longint;
     begin
     t:=x;x:=y;y:=t;
     end;

procedure pushup(x:longint);inline;
 begin
   s[x]:=s[c[x,0]]+s[c[x,1]]+1;
 end;
procedure pushdown(x:longint);inline;
 var l,r:longint;
 begin
   l:=c[x,0];r:=c[x,1];
   if rev[x] then
    begin
      swap(c[x,0],c[x,1]);
      rev[l]:=not(rev[l]);
      rev[r]:=not(rev[r]);
      rev[x]:=false;
    end;
 end;
procedure rotate(x:longint;var k:Longint);inline;
 var l,r,y,z:longint;
 begin
   y:=fa[x];z:=fa[y];
   if c[y,0]=x then l:=0 else l:=1;r:=l xor 1;
   if y=k then k:=x else c[z,ord(c[z,1]=y)]:=x;
   fa[x]:=z;fa[y]:=x;fa[c[x,r]]:=y;
   c[y,l]:=c[x,r];c[x,r]:=y;
   pushup(y);pushup(x);
 end;
procedure splay(x:longint;var k:longint);inline;
 var y,z:longint;
 begin
   while x<>k do
    begin
      y:=fa[x];z:=fa[y];
      if y<>k then
        begin
          if (c[z,0]=y) xor (c[y,0]=x) then rotate(x,k)
          else rotate(y,k);
        end;
      rotate(x,k);
    end;
 end;
function find(x,rank:longint):longint;inline;
 var l,r:longint;
 begin
 pushdown(x);l:=c[x,0];r:=c[x,1];
 if s[l]+1=rank then exit(x)
 else if s[l]>=rank then exit(find(l,rank))
 else exit(find(r,rank-s[l]-1));
 end;
procedure rever(l,r:longint);inline;
 var x,y:longint;
 begin
 x:=find(rt,l);y:=find(rt,r+2);
 splay(x,rt);splay(y,c[x,1]);
 rev[c[y,0]]:=not(rev[c[y,0]]);
 end;
procedure build(l,r,f:longint);inline;
 var mid,now,last:longint;
 begin
 if l>r then exit;
 now:=id[l];last:=id[f];
 if l=r then
    begin
      fa[now]:=last;s[now]:=1;
      c[last,ord(l>f)]:=now;
      exit;
    end;
 mid:=(l+r)>>1;
 build(l,mid-1,mid);build(mid+1,r,mid);
 now:=id[mid];pushup(mid);
 fa[now]:=last;
 c[last,ord(mid>f)]:=now;
 end;
procedure init;
 begin
   readln(n);
   for i:=1 to n do read(a[i]);readln;
   readln(m);
   for i:=1 to n+2 do id[i]:=i;
   build(1,n+2,0);rt:=(n+3)>>1;
 end;
procedure main;
 begin
   for i:=1 to m do
    begin
      readln(x,y);
      rever(x,y);
    end;
   for i:=2 to n+1 do write(a[find(rt,i)-1],' ');
 end;
begin
  assign(input,'input.txt');assign(output,'output.txt');
  reset(input);rewrite(output);
  init;
  main;
  close(input);close(output);
end.