1230: [Usaco2008 Nov]lites 开关灯

1230: [Usaco2008 Nov]lites 开关灯

Time Limit: 10 Sec Memory Limit: 162 MB
Submit: 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的范围内有多少灯是亮的

Sample Output

1

2

HINT

Source

Gold

题解：这是个比较有趣的线段树问题——将一般的区间加上一个数字变成了区间反转，不过这样也并么有难多少，还是一样的打lazytag，别的没了（phile：看样子你这次程序又偷懒狂用ext往下推呵呵呵 HansBug：那是那是，不过其实不用看样子也能搞，只是繁一点）

var
i,j,k,l,m,n:longint;
a,b:array[0..1000000] of longint;
function max(x,y:longint):longint;inline;
begin
if x>y then max:=x else max:=y;
end;
function min(x,y:longint):longint;inline;
begin
if x<y then min:=x else min:=y;
end;
procedure built(z,x,y:longint);inline;
begin
if x=y then
a[z]:=0
else
begin
built(z*2,x,(x+y) div 2);
built(z*2+1,(x+y) div 2+1,y);
a[z]:=a[z*2]+a[z*2+1];
end;
b[z]:=0;
end;
procedure ext(z,x,y:longint);inline;
begin
if b[z]=0 then exit;
a[z]:=(y-x+1)-a[z];
if x<>y then
begin
b[z*2]:=1-b[z*2];
b[z*2+1]:=1-b[z*2+1];
end;
b[z]:=0;
end;
function op(z,x,y,l,r:longint):longint;inline;
var a1,a2,a3,a4:longint;
begin
if l>r then exit(0);
ext(z,x,y);
if (x=l) and (y=r) then
begin
b[z]:=1;
exit(((r-l+1)-a[z])-a[z]);
end;
a2:=op(z*2,x,(x+y) div 2,l,min(r,(x+y) div 2));
a3:=op(z*2+1,(x+y) div 2+1,y,max(l,(x+y) div 2+1),r);
a[z]:=a[z]+a2+a3;
exit(a2+a3);
end;
function cal(z,x,y,l,r:longint):longint;inline;
var a1,a2,a3,a4:longint;
begin
if l>r then exit(0);
ext(z,x,y);
if (x=l) and (y=r) then exit(a[z]);
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));
end;
begin
readln(n,m);
built(1,1,n);
for i:=1 to m do
begin
readln(j,k,l);
case j of
0:begin
op(1,1,n,k,l);
end;
1:begin
writeln(cal(1,1,n,k,l));
end;
end;
end;
readln;
end.