1230: [Usaco2008 Nov]lites 开关灯

时间:2022-05-07
本文章向大家介绍1230: [Usaco2008 Nov]lites 开关灯,主要内容包括1230: [Usaco2008 Nov]lites 开关灯、Description、Input、Output、Sample Input、Sample Output、HINT、Source、基本概念、基础应用、原理机制和需要注意的事项等,并结合实例形式分析了其使用技巧,希望通过本文能帮助到大家理解应用这部分内容。

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:那是那是,不过其实不用看样子也能搞,只是繁一点)

 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