AlanXWu的博客

var n,i,j,k,l,r,q,x,y,m:longint; c:char; a:array[0..100005] of int64; p,flag:array[0..1000005] of int64; function min(a,b:int64):int64; begin if a<b then exit(A); exit(B); end; procedure build(t,...

染色种数 http://luo.hustoj.com/problem.php?id=1105 var n,m,i,j,k,l,x,y,z,cc:longint; p:Array[0..1000005] of longint; c:char;   procedure build(t,l,r:longint); var mid:longint; begin if l=r then b...