Splatter Painting题目代码

题目源：http://agc012.contest.atcoder.jp/tasks/agc012_b
存边的方法我就不说了
这题的做法说白了就是强暴力+优化
染色从后往前染（不解释）
对于每个点，标记该点已染色的最大范围，搜到该点时，若还需染色的范围比标记小就不用染下去了
下面贴代码，注意数组要开两倍

type arr=array[0..200001]of longint;var n,q,m,i,j,a,b:longint;    v,d,c,max,cl,head,next,start,endd:arr;    bb,bc:array[0..200001]of boolean;procedure dfs(k,dis,col:longint);var i:longint;begin    bb[k]:=true;    if(max[k]>=dis)and(bc[k])then begin        bb[k]:=false;        exit;    end;    max[k]:=dis;    if not bc[k]then begin        cl[k]:=col;        bc[k]:=true;    end;    if dis>0 then for i:=start[k] to endd[k] do    if not bb[next[i]]then dfs(next[i],dis-1,col);    bb[k]:=false;end;procedure sort(l,r:longint);var i,j,x,y:longint;begin    i:=l;j:=r;x:=head[(l+r) div 2];    repeat        while head[i]<x do inc(i);        while x<head[j] do dec(j);        if not(i>j) then begin            y:=head[i];head[i]:=head[j];head[j]:=y;            y:=next[i];next[i]:=next[j];next[j]:=y;            inc(i);j:=j-1;        end;    until i>j;    if l<j then sort(l,j);    if i<r then sort(i,r);end;begin    readln(n,m);    fillchar(cl,sizeof(cl),0);    fillchar(max,sizeof(max),0);    fillchar(bb,sizeof(bb),false);    fillchar(bc,sizeof(bc),false);    for i:=1 to m do begin        readln(a,b);        head[i]:=a;head[i+m]:=b;        next[i]:=b;next[i+m]:=a;    end;    m:=m*2;sort(1,m);start[head[1]]:=1;    for i:=2 to m do if head[i]<>head[i-1]then begin        endd[head[i-1]]:=i-1;        start[head[i]]:=i;    end;    endd[head[m]]:=m;    readln(q);    for i:=q downto 1 do readln(v[i],d[i],c[i]);    for i:=1 to q do dfs(v[i],d[i],c[i]);    for i:=1 to n do writeln(cl[i]);end.