3038: 上帝造题的七分钟2

3038: 上帝造题的七分钟2

Time Limit: 3 Sec  Memory Limit: 128 MB

Submit: 662  Solved: 302

[Submit][Status]

Description

XLk觉得《上帝造题的七分钟》不太过瘾,于是有了第二部。 "第一分钟,X说,要有数列,于是便给定了一个正整数数列。 第二分钟,L说,要能修改,于是便有了对一段数中每个数都开平方(下取整)的操作。 第三分钟,k说,要能查询,于是便有了求一段数的和的操作。 第四分钟,彩虹喵说,要是noip难度,于是便有了数据范围。 第五分钟,诗人说,要有韵律,于是便有了时间限制和内存限制。 第六分钟,和雪说,要省点事,于是便有了保证运算过程中及最终结果均不超过64位有符号整数类型的表示范围的限制。 第七分钟,这道题终于造完了,然而,造题的神牛们再也不想写这道题的程序了。" ——《上帝造题的七分钟·第二部》 所以这个神圣的任务就交给你了。

Input

第一行一个整数n,代表数列中数的个数。 第二行n个正整数,表示初始状态下数列中的数。 第三行一个整数m,表示有m次操作。 接下来m行每行三个整数k,l,r,k=0表示给[l,r]中的每个数开平方(下取整),k=1表示询问[l,r]中各个数的和。

Output

对于询问操作,每行输出一个回答。

Sample Input

10 1 2 3 4 5 6 7 8 9 10 5 0 1 10 1 1 10 1 1 5 0 5 8 1 4 8

Sample Output

19 7 6

HINT

1:对于100%的数据,1<=n<=100000,1<=l<=r<=n,数列中的数大于0,且不超过1e12。

2:数据不保证L<=R 若L>R,请自行交换L,R,谢谢!

Source

Poetize4

题解:拿到此题我有些懵了——要是说加法乘法的话,至少还能通过标记来进行整个区间的维护,可是这个怎么办?我只好尝试了下暴力修改,然后又突然想到了一个问题——当某个点的值原来就是0或者1时,开方操作将无法改变其大小——这样就有了一个优化,只要某个区间内全部为0或者1,则可以在修改操作时无视之,对于区间这一性质如何识别,则只要另立一个标记,只要它的两个子树都有了标记,则它也被标记,这个向来不难维护。

然后我就这么Submit了一下,结果50分TT,查了20多分钟才发现题目中不保证L<=R(HansBug:TT phile:话说你为何总是那么充满喜剧色彩。。。),然后就Accept了,再然后就没有然后了^_^(难得代码小于100行不容易啊)

 1 var
 2    i,j,k,l,m,n:longint;
 3    a,b,c:array[0..1000000] of int64;
 4 procedure swap(var x,y:longint);inline;
 5           var z:longint;
 6           begin
 7                z:=x;x:=y;y:=z;
 8           end;
 9 function max(x,y:longint):longint;inline;
10          begin
11               if x>y then max:=x else max:=y;
12          end;
13 function min(x,y:longint):longint;inline;
14          begin
15               if x<y then min:=x else min:=y;
16          end;
17 procedure built(z,x,y:longint);inline;
18           begin
19                if x=y then
20                   begin
21                        a[z]:=c[x];
22                        if a[z]<=1 then b[z]:=1 else b[z]:=0;
23                   end
24                else
25                    begin
26                         built(z*2,x,(x+y) div 2);
27                         built(z*2+1,(x+y) div 2+1,y);
28                         a[z]:=a[z*2]+a[z*2+1];
29                         if (b[z*2]=1) and (b[z*2+1]=1) then b[z]:=1 else b[z]:=0;
30                    end;
31           end;
32 function op(z,x,y,l,r:longint):int64;inline;
33          var
34             a1,a2,a3:int64;
35          begin
36               if l>r then exit(0);
37               if (x=l) and (y=r) then if b[z]=1 then exit(0);
38               if (x=y) then
39                  begin
40                       a1:=a[z];
41                       a[z]:=trunc(sqrt(a[z]));
42                       if a[z]<=1 then b[z]:=1;
43                       exit(a[z]-a1);
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               if (b[z*2]=1) and (b[z*2+1]=1) then b[z]:=1;
49               exit(a2+a3);
50          end;
51 function cal(z,x,y,l,r:longint):int64;inline;
52          begin
53               if l>r then exit(0);
54               if (x=l) and (y=r) then exit(a[z]);
55               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));
56          end;
57 begin
58      readln(n);
59      for i:=1 to n do read(c[i]);
60      readln;
61      built(1,1,n);
62      readln(m);
63      for i:=1 to m do
64          begin
65               readln(j,k,l);
66               if k>l then swap(k,l);
67               case j of
68                    0:op(1,1,n,k,l);
69                    1:writeln(cal(1,1,n,k,l));
70               end;
71          end;
72      readln;
73 end.
74      

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏分布式系统和大数据处理

悟透JavaScript

这本书分为了三个部分,第一部分“JavaScript真经”主要讲解JavaScript的一些核心概念,主要是数据类型、函数、原型、对象。并通过在JavaScri...

1234
来自专栏Java爬坑系列

【JAVA零基础入门系列】Day3 Java基本数据类型

  前两篇已经将开发环境搭建完成,如果你已经按之前的教程按部就班的完成了部署,那么世界上最优秀的编程语言之一和世界上最优秀的IDE之一已经出现在你的电脑上(此处...

2198
来自专栏编程之旅

数据结构——无权图的路径问题(C++和java实现)

好像又是接近半个月没有更新,这半个月忙着结婚的各项事情,本来预计的学习任务也拖拖拉拉,进度缓慢。吐槽一句,拍婚纱照真的是最非常非常累的一件事情,不想再有下次了。

1142
来自专栏Spark学习技巧

Flink DataStream编程指南

Flink程序是执行分布式集合转换(例如,filtering, mapping, updating state, joining, grouping, defi...

1.9K7
来自专栏康怀帅的专栏

Shell date 命令详解

以给定的格式显示当前时间。 %% 一个文字的 % %a 当前locale 的星期名缩写(例如: 日,代表星期日) %A 当前locale 的星...

3684
来自专栏Java Web

《编写高质量代码》学习笔记(1)

前言 看大神推荐的书单中入门有这么一本书,所以决定把这本书的精华(自认为很有用的点),或许是我自己现在能用到的点都提炼出来,供大家参考学习。 以下内容均出自《...

4024
来自专栏ml

初学java之接口基础

1 /* 2 长城牌电视机 3 联想奔月5008PC机 4 */ 5 6 7 package st; 8 //接口回调实例 9 in...

3156
来自专栏LinkedBear的个人空间

唠唠SE的面向对象-02——封装 原

1) 我们日常使用的电脑主机,把cpu、内存、主板等等都封装到机箱里面去。假如没有机箱的话的出现什么问题?

943
来自专栏数据结构与算法

P1077 摆花

题目描述 小明的花店新开张,为了吸引顾客,他想在花店的门口摆上一排花,共m盆。通过调查顾客的喜好,小明列出了顾客最喜欢的n种花,从1到n标号。为了在门口展出更多...

3318
来自专栏

shell之sort命令

1 sort的工作原理 sort将文件的每一行作为一个单位,相互比较,比较原则是从首字符向后,依次按ASCII码值进行比较,最后将他们按升序输出。 [rocro...

2107

扫码关注云+社区

领取腾讯云代金券