算法模板——线段树7（骰子翻转问题）

实现功能：首先输入一个长度为N的序列，由1-4组成（1表示向前滚一下，2表示向后滚一下，3表示向左滚一下，4表示向右滚一下，骰子原始状态：上1前2左4右5后3下6），然后输入任意多个操作，输入“1 x y”表示将序列第x个数改成y，输入“2 x y”表示输出对于原始状态的骰子，按照从x到y的序列操作可以使骰子变成什么样子

原理：还是线段树，而且只需要点修改区间访问，不过这里面区间之间的合并不再是简单的累加了，而是——置换关系，通过置换关系的合并实现及时的维护即可

type
    cube=array[1..6] of longint;
const fo:cube=(3,1,6,4,5,2);
      ba:cube=(2,6,1,4,5,3);
      le:cube=(5,2,3,1,6,4);
      ri:cube=(4,2,3,6,1,5);
      mo:cube=(1,2,3,4,5,6);
var
   i,j,k,l,m,n:longint;
   a:array[0..1000000] of cube;
   a1:cube;
function min(x,y:longint):longint;inline;
         begin
              if x<y then min:=x else min:=y;
         end;
function max(x,y:longint):longint;inline;
         begin
              if x>y then max:=x else max:=y;
         end;

function merge(a1,a2:cube):cube;inline;
          var a3:cube;i:longint;
          begin
               for i:=1 to 6 do
                   a3[i]:=a1[a2[i]];
               exit(a3);
          end;
procedure built(z,x,y:longint);inline;
          begin
               if x=y then
                  begin
                       read(i);
                       case i of
                            1:a[z]:=fo;
                            2:a[z]:=ba;
                            3:a[z]:=le;
                            4:a[z]:=ri;
                       end;
                  end
               else
                   begin
                        built(z*2,x,(x+y) div 2);
                        built(z*2+1,(x+y) div 2+1,y);
                        a[z]:=merge(a[z*2],a[z*2+1]);
                   end;
          end;
procedure op(z,x,y,t,v:longint);inline;
          begin
               if (t=y) and (x=t) then
                  begin
                       case v of
                            1:a[z]:=fo;
                            2:a[z]:=ba;
                            3:a[z]:=le;
                            4:a[z]:=ri;
                       end;
                       exit;
                  end;
               if t<=(x+y) div 2 then op(z*2,x,(x+y) div 2,t,v) else op(z*2+1,(x+y) div 2+1,y,t,v);
               a[z]:=merge(a[z*2],a[z*2+1]);
          end;
function res(z,x,y,l,r:longint):cube;inline;
         begin
              if (l>r) then exit(mo);
              if (x=l) and (y=r) then exit(a[z]);
              exit(merge(result(z*2,x,(x+y) div 2,l,min((x+y) div 2,r)),result(z*2+1,(x+y) div 2+1,y,max((x+y) div 2+1,l),r)));
         end;
begin
     readln(n);
     built(1,1,n);
     readln;
     while true do
           begin
                read(i);
                case i of
                     1:begin
                            readln(j,k);
                            op(1,1,n,j,k);
                     end;
                     2:begin
                            readln(j,k);
                            a1:=res(1,1,n,j,k);
                            for i:=1 to 6 do write(a1[i],' ');
                            writeln;
                     end;
                end;
           end;

end.