分块写丑了石锤
by impuk @ 2020-05-09 17:47:36
我的分块借你看看。
```
var a:array[0..500000]of longint;
b:array[0..708]of longint;
n,m,i,j,block,o,s,l,r:longint;
begin
readln(n,m);
block:=trunc(sqrt(n));
for i:=1 to n do
begin
read(a[i]);
inc(b[i div block],a[i]);
end;
for i:=1 to m do
begin
readln(o,l,r);
if o=1 then
begin
inc(a[l],r);
inc(b[l div block],r);
continue;
end;
s:=0;
for j:=(l+block-1) div block to (r-block+1) div block do
inc(s,b[j]);
for j:=l to ((l-1)div block+1)*block-1 do
inc(s,a[j]);
for j:=(r+1)div block*block to r do
inc(s,a[j]);
writeln(s);
end;
end.
```
by impuk @ 2020-05-09 17:49:15
不会Pascal... qwq
by ADay @ 2020-05-09 17:49:51
不过还是蟹蟹大佬
by ADay @ 2020-05-09 17:56:05
@[ADay](/user/312393) 路过
by JeffWang2019 @ 2020-05-09 17:58:15
树状数组不比分块好写？？
by qsceszthn @ 2020-05-09 17:59:00
@[JeffWang2019](/user/219935) ...
by ADay @ 2020-05-09 17:59:46
@[qsceszthn](/user/221729) 萌新不会
by ADay @ 2020-05-09 18:00:03
@[ADay](/user/312393) ~~那就写线段树吧~~
by qsceszthn @ 2020-05-09 18:04:18
@[ADay](/user/312393) 算了，我帮你翻译吧，反正我也闲的
by impuk @ 2020-05-09 18:05:55