const maxn=600008; len=24; var x,y,z,n,m,tot,lx,i:longint; sum:array[0..maxn] of longint; rt:array[0..maxn] of longint; time,l,r:array[0..maxn*len] of longint; ch:char; procedure insert(x:longint);inline; var p,i:longint; begin rt[lx]:=tot+1; p:=rt[lx-1]; for i:=len downto 1 do begin inc(tot); l[tot]:=l[p]; r[tot]:=r[p]; time[tot]:=time[p]+1; if (x and (1<<(i-1))) >0 then begin p:=r[p]; r[tot]:=tot+1; end else begin p:=l[p]; l[tot]:=tot+1; end; end; inc(tot); l[tot]:=l[p]; r[tot]:=r[p]; time[tot]:=time[p]+1; end; function query(a,b,x:longint):longint;inline; var ans,i:longint; begin ans:=0; for i:=len downto 1 do begin if (x and (1<<(i-1))) >0 then begin if time[l[b]]>time[l[a]] then begin a:=l[a]; b:=l[b]; ans:=ans+1<<(i-1); end else begin a:=r[a]; b:=r[b]; end end else begin if time[r[b]]>time[r[a]] then begin a:=r[a]; b:=r[b]; ans:=ans+1<<(i-1); end else begin a:=l[a]; b:=l[b]; end end; end; exit(ans); end; begin readln(n,m); sum[0]:=0; lx:=1; insert(0); for i:=1 to n do begin read(x); inc(lx); sum[lx]:=x xor sum[lx-1]; insert(sum[lx]); end; readln; for i:=1 to m do begin read(ch); if ch=‘A‘ then begin readln(x); inc(lx); sum[lx]:=x xor sum[lx-1]; insert(sum[lx]); end else begin readln(x,y,z); writeln(query(rt[x-1],rt[y],z xor sum[lx])); end; end; end.
时间: 2024-10-08 18:51:10