☆打鼹鼠
SuperBrother在机房里闲着没事干(再对比一下他的NOIP,真是讽刺啊……),于是便无聊地开始玩“打鼹鼠”……
描述 Description
在这个“打鼹鼠”的游戏中，鼹鼠会不时地从洞中钻出来，不过不会从洞口钻进去（鼹鼠真胆大……）。洞口都在一个大小为n(n<=1024)的正 方形中。这个正方形在一个平面直角坐标系中，左下角为(0,0)，右上角为(n-1,n-1)。洞口所在的位置都是整点，就是横纵坐标都为整数的点。而 SuperBrother也不时地会想知道某一个范围的鼹鼠总数。这就是你的任务。

输入格式 Input Format
每个输入文件有多行。
第一行，一个数n，表示鼹鼠的范围。
以后每一行开头都有一个数m，表示不同的操作：
m=1，那么后面跟着3个数x,y,k(0<=x,y<n)，表示在点(x,y)处新出现了k只鼹鼠；
m=2，那么后面跟着4个数x1,y1,x2,y2(0<=x1<=x2<n,0<=y1<=y2<n)，表示询问矩形(x1,y1)-(x2,y2)内的鼹鼠数量；
m=3，表示老师来了，不能玩了。保证这个数会在输入的最后一行。
询问数不会超过10000，鼹鼠数不会超过maxlongint。
对于每个m=2，输出一行数，这行数只有一个数，即所询问的区域内鼹鼠的个数。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
var
  n,m,x1,y1,x2,y2,x,y,k,s:longint;
  t:array[-1..1024,-1..1024] of longint;
function lowbit(i:longint):longint;
begin
  lowbit:=i and (i xor (i-1));
end;

procedure change(i,jj,k:longint);
var j:longint;
begin
  while i<=n do
   begin
     j:=jj;   //就是这里啊  少了这一句
     while j<=n do
      begin
        t[i,j]:=t[i,j]+k;
        j:=j+lowbit(j);
      end;
     i:=i+lowbit(i)
   end;
end;

function find(i,jj:longint):longint;
var sum,j:longint;
begin
  sum:=0;
  while i>0 do
   begin
     j:=jj;
     while j>0 do
      begin
        sum:=sum+t[i,j];
        j:=j-lowbit(j);
      end;
     i:=i-lowbit(i)
   end;
  exit(sum);
end;

begin
  readln(n);
  fillchar(t,sizeof(t),0);
  while true do
   begin
     read(m);
     if m=1 then
      begin
        readln(x,y,k);
        change(x+1,y+1,k);
      end
     else if m=2 then
      begin
        readln(x1,y1,x2,y2);
        s:=find(x2+1,y2+1)+find(x1,y1)-find(x1,y2+1)-find(x2+1,y1);
        writeln(s);
      end
     else halt;
   end;
end.