染色问题（Dye）

离散化+线段树

program dye; var now,n,i,j,l,r,mid,max,maxl,maxr,p,ys,h:longint; ch:char; a:array[0..10010] of longint; v:array[0..10010] of boolean; color:array[0..5010] of boolean; x1,x2:array[0..5010] of longint; lc,rc,left,right,data:array[0..20010] of longint; procedure sort(l,r:longint); var i,j,x,y:longint; begin x:=a[(l+r)div 2]; i:=l; j:=r; repeat while a[i]<x do inc(i); while a[j]>x do dec(j); if i<=j then begin y:=a[i]; a[i]:=a[j]; a[j]:=y; inc(i); dec(j); end; until i>j; if l<j then sort(l,j); if i<r then sort(i,r); end; procedure jian(l,r:longint); var mid,h:longint; begin h:=p; left[h]:=l; right[h]:=r; if r-l>1 then begin mid:=(l+r)div 2; inc(p); lc[h]:=p; jian(l,mid); inc(p); rc[h]:=p; jian(mid,r); end; end; procedure paint(h:longint); begin if (l<=left[h]) and (r>=right[h]) then data[h]:=ys else begin if data[h]<2 then begin data[lc[h]]:=data[h]; data[rc[h]]:=data[h]; end; if data[h]<>ys then data[h]:=2; if l<right[lc[h]] then paint(lc[h]); if r>right[lc[h]] then paint(rc[h]); end; end; function find(t:longint):longint; var l,r,mid:longint; begin l:=0; r:=2*n; repeat mid:=(l+r)div 2; if a[mid]<t then l:=mid else r:=mid; until r-l<=1; find:=r; end; procedure work(h:longint); begin if data[h]=2 then begin work(lc[h]); work(rc[h]); end else if data[h]=1 then now:=1 else begin if now=1 then begin l:=a[left[h]]; if not v[left[h]] then inc(l); end; r:=a[right[h]]; if not v[right[h]] then dec(r); if r-l>max then begin max:=r-l; maxl:=l; maxr:=r; end; now:=0; end; end; begin assign(input,'dye.in'); reset(input); assign(output,'dye.out'); rewrite(output); read(n); for i:=1 to n do begin read(x1[i],x2[i]); read(ch); readln(ch); a[i*2-1]:=x1[i]; a[i*2]:=x2[i]; if ch='w' then color[i]:=true else color[i]:=false; end; sort(1,2*n); p:=1; jian(1,2*n); fillchar(data,sizeof(data),0); for i:=1 to n do begin l:=find(x1[i]); r:=find(x2[i]); v[l]:=color[i]; v[r]:=color[i]; if color[i] then ys:=0 else ys:=1; paint(1); end; now:=1; max:=0; work(1); writeln(maxl,' ',maxr); close(input); close(output); end.

题一：染色问题（Dye）。

问题描述：

有一段从0到1000000000的数轴，它开始的颜色是白色。现在有人不断把其中的一段染成黑色或白色，总共染了N段（1<=N<=5000）。你的任务是编写一个程序，找出最后最长的白色段。

输入：第一行只有一个数N，接下来的N行是每次染一段的信息，格式为：ai bi ci。

ai、bi是整数，ci是符号’b’或’w’，三者用空格隔开，表示这次从ai染到bi，用的颜色为ci（’w’表示白色，’b’表示黑色），你可以认为0<ai<=bi<1000000000。

输出：仅两个数x，y（x<=y），用空格隔开，表示最长的白色段。如果有多个解，则输出X最小的解。

〖输入输出样例〗：

Dye.in	Dye.out
4 1 999999997 b 40 300 w 300 634 w 43 47 b	48 634