Codevs2018 反病毒软件

2018 反病毒软件

时间限制: 1 s

 空间限制: 128000 KB

 题目等级 : 钻石 Diamond

 查看运行结果

 

题目描述 Description

其实这个“反病毒软件”（Anti-Virus SOFTware），是相关部门应对H9N7人流感研发的。

相关部门的监控范围里只有N个城市，从1到N编号。初始时，这些城市都没有任何病例出现。由于在某一个城市出现过多的病例不太好，相关部门需要随时知道，从X到Y（含X和Y）这些城市当中，病例最多的城市与病例第二多的城市的病例数之差为多少。

一共会有Q个事件发生，具体见【输入】。

输入描述 Input Description

第一行为两个整数N，Q，以空格隔开。

接下来Q行，每行代表一个事件。第i+1行代表第i个事件，这一行有三个整数Ci，Xi，Yi，其中Ci为1或2。如果Ci为1，表示在城市Xi又新发现了Yi个病例；如果Ci为2，表示询问从Xi到Yi，病例最多的城市与病例第二多的城市的病例数之差为多少。

输出描述 Output Description

对于输入中的每一个Ci=2的事件，输出一行，即询问的结果。

样例输入 Sample Input

4

2 1 4

1 2 3

2 2 4

1 3 2

2 1 3

1 2 2

2 1 4

样例输出 Sample Output

0

3

1

3

数据范围及提示 Data Size & Hint

【样例说明】

初始时各个城市的病例数为{0，0，0，0}。

从1到4最多的病例数为0，第二多的病例数为0，差值为0，输出0。

城市2发现了3个新病例，病例数变为{0，3，0，0}。

从2到4最多的病例数为3，第二多的病例数为0，差值为3，输出3。

城市3发现了2个新病例，病例数变为{0，3，2，0}。

从1到3最多的病例数为3，第二多的病例数为2，差值为1，输出1。

城市2发现了2个新病例，病例数变为{0，5，2，0}。

从1到4最多的病例数为5，第二多的病例数为2，差值为3，输出3。

【数据规模与约定】

对于40%的数据，N，Q≤1000。

对于100%的数据，2≤N，Q≤100000，且对于每一个Ci=2，满足Xi＜Yi。

分类标签 Tags 点此展开

题解：首先对这个出题人表示严重吐槽——假如存在两个并列第一多的城市，那么不是不应该第一第二都取这个值么？我这么做结果WA得很惨，然后我再加了个等号让第一第二可以取一样的值，然后就AC了！？！？对这题的题目表述表示不解。。。汗

不难搞的线段树，点修改的话该怎么干怎么干，然后区间的话主要就是个核心运算——merge操作，别的没了

 type vet=record
                 a1,a0:longint;
       end;
 var
    i,j,k,l,m,n:longint;
    a2:vet;
    a:array[..] of vet;
    d:array[..] of longint;
    c:array[..] of longint;
 procedure swap(var x,y:longint);inline;
           var z:longint;
           begin
                z:=x;x:=y;y:=z;
           end;
 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;

 function merge(a2,a3:vet):vet;inline;
           var i,j,k,l:longint;a4:vet;
           begin
                c[]:=a2.a0;c[]:=a2.a1;
                c[]:=a3.a0;c[]:=a3.a1;
                a4.a0:=;a4.a1:=;
                for i:= to  do
                    begin
                         if c[i]>=a4.a0 then
                            begin
                                 a4.a1:=a4.a0;
                                 a4.a0:=c[i];
                            end
                         else
                             begin
                                 if (c[i]>a4.a1) and (c[i]<a4.a0) then a4.a1:=c[i];
                             end;
                    end;
                exit(a4);
           end;
 procedure built(z,x,y:longint);inline;
           begin
                if x=y then
                   d[x]:=z
                else
                    begin
                         built(z*,x,(x+y) div );
                         built(z*+,(x+y) div +,y);
                    end;
                a[z].a0:=;a[z].a1:=;
           end;
 procedure doit(x,y:longint);
           begin
                x:=d[x];
                a[x].a0:=a[x].a0+y;a[x].a1:=;
                while x> do
                      begin
                           a[x div ]:=merge(a[x],a[x+-*(x mod )]);
                           x:=x div ;
                      end;
           end;
 function cal(z,x,y,l,r:longint):vet;
          var a3,a2:vet;
          begin
               if l>r then
                  begin
                       a2.a0:=;
                       a2.a1:=;
                       exit(a2);
                  end;
               if (x=l) and (y=r) then exit(a[z]);
               exit(merge(cal(z*,x,(x+y) div ,l,min(r,(x+y) div )),cal(z*+,(x+y) div +,y,max(l,(x+y) div +),r)));
          end;
 begin
      readln(n);
      built(,,n);
      while not(eof) do
          begin
               readln(j,k,l);
               case j of
                    :doit(k,l);
                    :begin
                           a2:=cal(,,n,k,l);
                           writeln(a2.a0-a2.a1);
                    end;
               end;
          end;
      readln;
 end.