倒水

【题目描述】 

从前有一个DTZ，它面前有一排格子，每个格子都放着一个杯子，每个杯子下面都配有一个集水盘，每个杯子都有有限的容量，而集水盘没有容量限制。

由于水利局局长Skylynf想喝水，DTZ需要往杯子里面倒水。

DTZ有两种操作，1.倒水；2.交换。具体如下：

· 1.倒水：DTZ不是一个一个杯子地倒水，而是一片片的倒水。它每次选择一个连续区域a~b，第a个杯子倒到第b个杯子（包含a和b），往里面的每个杯子倒入相同的水（即杯子们的水量同时加上一个数）。由于杯子大小不一。倒了若干次以后，某些杯子会溢出来很多水，流进这些杯子下面的集水盘里面。如果第a个杯子（即最前面那个杯子）溢水了，DTZ就会毫不犹豫地交换第a个杯子和第b个杯子，但不移动原本的集水盘。（以上2个操作同属1个倒水操作）

· 2.交换：但是DTZ特别调皮，除了上述情况，他有时候会在倒完一片水之后，交换一些杯子的位置，但不移动原本的集水盘。

Skylynf在想知道DTZ一系列操作完成后，最后所有杯子水量的情况的同时，喝令DTZ算出每个集水盘有多少被浪费的水。

同时，DTZ被红云威胁去帮它解密码，好让红云有时间喂养它的蜘蛛们，但他倒水任务在身，请你赶快帮他完成任务，不然DTZ就会变成一台Iphone6.

所以请帮DTZ计算一下倒水的结果吧。

【输入描述】 

第一行2个整数n,m，表示方格阵有n个格子(1<=n<=3000 1<=m<=100)，DTZ总共倒了m次水。

接下来一行n个整数，每个数字之间用空格隔开。表示每个杯子的最大容量为X 份水(1<=X<=1000)。

接下来m行，每行3个整数a, b, s (1<=a<=b<=n 0<=s<=30)，

· 如果s等于0，则表示DTZ要把第a个杯子和第b个杯子交换位置；

· 如果s不为0，那就表示DTZ要倒水，这次倒水从第a个杯子倒到第b个杯子（包含a和b）每一个杯子倒s份水。

【输出描述】 

第一行n个整数，每个整数之间用空格隔开，表示最后每个杯子里面有多少水。

接下来一行再有n个整数，表示最后每个杯子的集水盘里面有多少水。

【输入样例】 

3 3

1 2 3

1 2 1

1 3 0

2 3 1

【输出样例】 

0 2 1

0 0 1

程序：

var
n,m,i,a,b,s:longint;
x:array[0..6000]of longint;
r,p:array[0..5000]of int64;
procedure jh;
begin
    x[0]:=x[a];x[a]:=x[b];x[b]:=x[0];
    r[0]:=r[a];r[a]:=r[b];r[b]:=r[0];
end;
procedure js;
var
i:longint;
begin
    for i:=1 to n do
    begin
        if r[i]>x[i] then
        begin
            p[i]:=(r[i]-x[i])+p[i];
            r[i]:=x[i];
        end;
    end;
end;
procedure jia;
var
i:longint;
begin
    for i:=a to b do
    r[i]:=r[i]+s;
    for i:=a+1 to b do
    if r[i]>x[i] then
    begin
        p[i]:=(r[i]-x[i])+p[i];
        r[i]:=x[i];
    end;
end;
begin
    fillchar(r,sizeof(r),0);
    fillchar(p,sizeof(p),0);
    readln(n,m);
    for i:=1 to n do
    read(x[i]);
    readln;
    for i:=1 to m do
    begin
        readln(a,b,s);
        if s=0 then jh;
        if s>0 then
        begin
            jia;
            if r[a]>x[a] then
            begin
                p[a]:=p[a]+(r[a]-x[a]);
                r[a]:=x[a];
                jh;
            end;
        end;
    end;
    js;
    for i:=1 to n do
    write(r[i],' ');
    writeln;
    for i:=1 to n do
    write(p[i],' ');
end.