记录编号	74940	评测结果	AAAAAAAAAA
题目名称	1427.zwei	最终得分	100
用户昵称	钨铅	是否通过	通过
代码语言	Pascal	运行时间	0.739 s
提交时间	2013-10-26 19:05:48	内存使用	2.07 MiB

program zwei;
var a:array[1..100000]of longint;
    f:array[1..400000]of longint;
    n,m,i,j,x,y,ans:longint;
procedure build(t,l,r:longint);
var mid:longint;
begin
if r=l then begin
            f[t]:=a[l];
            exit;
            end;
mid:=(l+r) div 2;
build(t*2,l,mid);
build(t*2+1,mid+1,r);
f[t]:=f[t*2] xor f[t*2+1];
end;
procedure change(t,l,r:longint);
var mid:longint;
begin
if (l=r)and(l=x) then begin
                      f[t]:=y;
                      exit;
                      end;
mid:=(l+r) div 2;
if x<=mid then change(t*2,l,mid);
if x>mid then change(t*2+1,mid+1,r);
f[t]:=f[t*2] xor f[t*2+1];
end;
procedure find(t,l,r,x,y:longint);
var mid:longint;
begin
if (l=x)and(r=y) then begin
                      ans:=ans xor f[t];
                      exit;
                      end;
mid:=(l+r) div 2;
if y<=mid then begin
               find(t*2,l,mid,x,y);
               exit;
               end;
if mid<x then begin
              find(t*2+1,mid+1,r,x,y);
              exit;
              end;
find(t*2,l,mid,x,mid);
find(t*2+1,mid+1,r,mid+1,y);
end;
begin
assign(input,'zwei.in');
assign(output,'zwei.out');
reset(input);
rewrite(output);
read(n,m);
if n=0 then exit;
for i:=1 to n do read(a[i]);
build(1,1,n);
for i:=1 to m do begin
                 read(j,x,y);
                 case j of
                 0:begin
                   change(1,1,n);
                   end;
                 1:begin
                   ans:=0;
                   find(1,1,n,x,y);
                   writeln(ans);
                   end;
                 end;
                 end;
close(input);
close(output);
end.