2017.6.4 入门组 NO.6——树

---

80%：做不出100%，先来个80分水法
     首先将x,y之间有边的记录两个，存在a数组里,一个是x,y,另一个是y,x
     然后将这个a数组排序，将a[i,1]按升序排序。
     Then 就可以求出每一个点与多少个点有边，求出每一个点的"子点"的区间，用l和r数组存
     再用dfs求出以1作根，每一个点的father是谁
     预处理Over
     如果为1，新建一个数组k来存它们的变化；
     如果为2，就从这个点往回推，如果为偶数次就+k[j]，如果为奇数次就-k[j],j=father[j]

---

80%代码：

var a:array[0..200000,1..2]of longint;
    father,l,r,k,d:array[0..100000]of longint;
    v:array[0..100000]of boolean;
    n,m,i,j,z,y,x,w:longint;

procedure qsort(l,r:longint);
var  i,j,mid:longint;
begin
  if l>=r then exit;
  i:=l; j:=r; mid:=a[(l+r) div 2,1];
  repeat
    while a[i,1]<mid do inc(i);
    while a[j,1]>mid do dec(j);
    if i<=j then
      begin
        a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
        inc(i);dec(j);
      end;
  until i>j;
  qsort(i,r);
  qsort(l,j);
end;

procedure find_father(x:longint);
var  i:longint;
begin
  v[x]:=false;
  for i:=l[x] to r[x] do
    if v[a[i,2]]=true then
      begin
        father[a[i,2]]:=x;
        find_father(a[i,2]);
      end;
end;

begin
  readln(n,m);
  for i:=1 to n do read(d[i]);
  readln;
  for i:=1 to n-1 do
    begin
      readln(x,y);
      a[i*2-1,1]:=x;
      a[i*2-1,2]:=y;
      a[i*2,1]:=y;
      a[i*2,2]:=x;
    end;
  qsort(1,(n-1)*2);
  for i:=1 to (n-1)*2 do
    begin
      if a[i,1]<>a[i-1,1] then l[a[i,1]]:=i;
      if a[i,1]<>a[i+1,1] then r[a[i,1]]:=i;
    end;
  fillchar(v,sizeof(v),true);
  find_father(1);
  for i:=1 to m do
    begin
      read(x);
      if x=1 then
        begin
          readln(j,y);
          k[j]:=k[j]+y;
        end;
      if x=2 then
        begin
          readln(w);
          j:=w;y:=0;z:=d[w];
          while j<>0 do
            begin
              y:=1-y;
              if y=0 then z:=z-k[j] else z:=z+k[j];
              j:=father[j];
            end;
          writeln(z);
        end;
    end;
end.