1230: [Usaco2008 Nov]lites 开关灯
1230: [Usaco2008 Nov]lites 开关灯
Time Limit: 10 Sec Memory Limit: 162 MBSubmit: 1162 Solved: 589
[Submit][Status]
Description
Farmer John尝试通过和奶牛们玩益智玩具来保持他的奶牛们思维敏捷. 其中一个大型玩具是牛栏中的灯. N (2 <= N <= 100,000) 头奶牛中的每一头被连续的编号为1..N, 站在一个彩色的灯下面.刚到傍晚的时候, 所有的灯都是关闭的. 奶牛们通过N个按钮来控制灯的开关; 按第i个按钮可以改变第i个灯的状态.奶牛们执行M (1 <= M <= 100,000)条指令, 每个指令都是两个整数中的一个(0 <= 指令号 <= 1). 第1种指令(用0表示)包含两个数字S_i和E_i (1 <= S_i <= E_i <= N), 它们表示起始开关和终止开关. 奶牛们只需要把从S_i到E_i之间的按钮都按一次, 就可以完成这个指令. 第2种指令(用1表示)同样包含两个数字S_i和E_i (1 <= S_i <= E_i <= N), 不过这种指令是询问从S_i到E_i之间的灯有多少是亮着的. 帮助FJ确保他的奶牛们可以得到正确的答案.
Input
* 第 1 行: 用空格隔开的两个整数N和M
* 第 2..M+1 行: 每行表示一个操作, 有三个用空格分开的整数: 指令号, S_i 和 E_i
Output
第 1..询问的次数 行: 对于每一次询问, 输出询问的结果.
Sample Input
4 5
0 1 2
0 2 4
1 2 3
0 2 4
1 1 4
输入解释:
一共有4盏灯; 5个指令. 下面是执行的情况:
灯
1 2 3 4
Init: O O O O O = 关 * = 开
0 1 2 -> * * O O 改变灯 1 和 2 的状态
0 2 4 -> * O * *
1 2 3 -> 1 输出在2..3的范围内有多少灯是亮的
0 2 4 -> * * O O 改变灯 2 ,3 和 4 的状态
1 1 4 -> 2 输出在1..4的范围内有多少灯是亮的
0 1 2
0 2 4
1 2 3
0 2 4
1 1 4
输入解释:
一共有4盏灯; 5个指令. 下面是执行的情况:
灯
1 2 3 4
Init: O O O O O = 关 * = 开
0 1 2 -> * * O O 改变灯 1 和 2 的状态
0 2 4 -> * O * *
1 2 3 -> 1 输出在2..3的范围内有多少灯是亮的
0 2 4 -> * * O O 改变灯 2 ,3 和 4 的状态
1 1 4 -> 2 输出在1..4的范围内有多少灯是亮的
Sample Output
1
2
2
HINT
Source
题解:这是个比较有趣的线段树问题——将一般的区间加上一个数字变成了区间反转,不过这样也并么有难多少,还是一样的打lazytag,别的没了(phile:看样子你这次程序又偷懒狂用ext往下推呵呵呵 HansBug:那是那是,不过其实不用看样子也能搞,只是繁一点)
1 var 2 i,j,k,l,m,n:longint; 3 a,b:array[0..1000000] of longint; 4 function max(x,y:longint):longint;inline; 5 begin 6 if x>y then max:=x else max:=y; 7 end; 8 function min(x,y:longint):longint;inline; 9 begin 10 if x<y then min:=x else min:=y; 11 end; 12 procedure built(z,x,y:longint);inline; 13 begin 14 if x=y then 15 a[z]:=0 16 else 17 begin 18 built(z*2,x,(x+y) div 2); 19 built(z*2+1,(x+y) div 2+1,y); 20 a[z]:=a[z*2]+a[z*2+1]; 21 end; 22 b[z]:=0; 23 end; 24 procedure ext(z,x,y:longint);inline; 25 begin 26 if b[z]=0 then exit; 27 a[z]:=(y-x+1)-a[z]; 28 if x<>y then 29 begin 30 b[z*2]:=1-b[z*2]; 31 b[z*2+1]:=1-b[z*2+1]; 32 end; 33 b[z]:=0; 34 end; 35 function op(z,x,y,l,r:longint):longint;inline; 36 var a1,a2,a3,a4:longint; 37 begin 38 if l>r then exit(0); 39 ext(z,x,y); 40 if (x=l) and (y=r) then 41 begin 42 b[z]:=1; 43 exit(((r-l+1)-a[z])-a[z]); 44 end; 45 a2:=op(z*2,x,(x+y) div 2,l,min(r,(x+y) div 2)); 46 a3:=op(z*2+1,(x+y) div 2+1,y,max(l,(x+y) div 2+1),r); 47 a[z]:=a[z]+a2+a3; 48 exit(a2+a3); 49 end; 50 function cal(z,x,y,l,r:longint):longint;inline; 51 var a1,a2,a3,a4:longint; 52 begin 53 if l>r then exit(0); 54 ext(z,x,y); 55 if (x=l) and (y=r) then exit(a[z]); 56 exit(cal(z*2,x,(x+y) div 2,l,min(r,(x+y) div 2))+cal(z*2+1,(x+y) div 2+1,y,max(l,(x+y) div 2+1),r)); 57 end; 58 begin 59 readln(n,m); 60 built(1,1,n); 61 for i:=1 to m do 62 begin 63 readln(j,k,l); 64 case j of 65 0:begin 66 op(1,1,n,k,l); 67 end; 68 1:begin 69 writeln(cal(1,1,n,k,l)); 70 end; 71 end; 72 end; 73 readln; 74 end. 75