2048.pas

题目描述：此时，Conan却在一旁玩着2048。
这是一个4*4的矩阵，初始全为0。每次一个没有数字的格子中会随机出现一个2或4，每次可以选择上下左右其中一个方向去滑动，每滑动一次，所有的数字方块都会往滑动的方向靠拢外，相同数字的方块在靠拢、相撞时会相加。

Conan想看看今天自己运气咋样，于是就闭着眼睛，在屏幕上随便滑来滑去。所以这个模拟的任务就交给你了。过了一会，他然后睁开眼睛，如果游戏没有结束（滑动后如果没有空格子，则游戏结束），请输出矩阵（格式参见样例），否则输出“Game over!”（不包含引号）。

从文件 game.in 中读入数据。
输入第一行包含一个整数N，表示Conan滑了几下。
接下来N 行，x, y, v, f表示第x行与第y列出现数字为v后，Conan滑的方向为f（f为字符，U, D, L, R分别表示向上下左右滑）。
行从上往下1-4标号，列从左往右1-4标号。
数据保证在游戏未结束时，只会在空白区域出现数字。

样例输入

81 3 4 L2 3 2 U2 4 2 R4 1 2 L3 4 2 L3 2 2 D1 3 4 R1 3 2 U

样例输出

0 0 2 80 0 0 20 0 0 80 0 0 0

var        a,b,c,i,j,k,o:longint;        v:array[0..5,0..5]of longint;        t,s:char;        u:boolean;procedure up;var        i,j,k,o:longint;begin        for k:=1 to 4 do        begin                for i:=1 to 4 do                begin                        if (v[i-1,k]=0)and(i-1>0) then                        begin                                o:=i;                                while (v[o-1,k]=0)and(o-1>0) do                                begin                                        v[o-1,k]:=v[o,k];                                        v[o,k]:=0;                                        dec(o);                                end;                        end;                end;                for i:=1 to 4 do                begin                        if (v[i-1,k]=v[i,k])and(v[i,k]<>0)and(i-1>0) then                        begin                                v[i-1,k]:=v[i-1,k]+v[i,k];                                v[i,k]:=0;                                for j:=i to 3 do                                begin                                        v[j,k]:=v[j+1,k];                                        v[j+1,k]:=0;                                end;                                continue;                        end;                end;        end;end;procedure down;var        i,j,k,o:longint;begin        for k:=1 to 4 do        begin                for i:=4 downto 1 do                begin                        if (v[i+1,k]=0)and(i+1<=4) then                        begin                                o:=i;                                while (v[o+1,k]=0)and(o+1<=4) do                                begin                                        v[o+1,k]:=v[o,k];                                        v[o,k]:=0;                                        inc(o);                                end;                        end;                end;                for i:=4 downto 1 do                begin                        if (v[i+1,k]=v[i,k])and(v[i,k]<>0)and(i+1<=4) then                        begin                                v[i+1,k]:=v[i+1,k]+v[i,k];                                v[i,k]:=0;                                for j:=i downto 2 do                                begin                                        v[j,k]:=v[j-1,k];                                        v[j-1,k]:=0;                                end;                                continue;                        end;                end;        end;end;procedure lift;var        i,j,k,o:longint;begin        for k:=1 to 4 do        begin                for i:=1 to 4 do                begin                        if (v[k,i-1]=0)and(i-1>0) then                        begin                                o:=i;                                while (v[k,o-1]=0)and(o-1>0) do                                begin                                        v[k,o-1]:=v[k,o];                                        v[k,o]:=0;                                        dec(o);                                end;                        end;                end;                for i:=1 to 4 do                begin                        if (v[k,i-1]=v[k,i])and(v[k,i]<>0)and(i-1>0) then                        begin                                v[k,i-1]:=v[k,i]+v[k,i-1];                                v[k,i]:=0;                                for j:=i to 3 do                                begin                                        v[k,j]:=v[k,j+1];                                        v[k,j+1]:=0;                                end;                                continue;                        end;                end;        end;end;procedure right;var        i,j,k,o:longint;begin        for k:=1 to 4 do        begin                for i:=4 downto 1 do                begin                        if (v[k,i+1]=0)and(i+1<=4) then                        begin                                o:=i;                                while (v[k,o+1]=0)and(o+1<=4) do                                begin                                        v[k,o+1]:=v[k,o];                                        v[k,o]:=0;                                        inc(o);                                end;                        end;                end;                for i:=4 downto 1 do                begin                        if (v[k,i+1]=v[k,i])and(v[k,i]<>0)and(i+1<=4) then                        begin                                v[k,i+1]:=v[k,i]+v[k,i+1];                                v[k,i]:=0;                                for j:=i downto 2 do                                begin                                        v[k,j]:=v[k,j-1];                                        v[k,j-1]:=0;                                end;                                continue;                        end;                end;        end;end;begin        assign(input,'2048.in');reset(input);        assign(output,'2048.out');rewrite(output);        readln(a);        for b:=1 to a do        begin                u:=true;                for o:=1 to 4 do                begin                        for c:=1 to 4 do if v[o,c]=0 then                        begin                                u:=false;                                break;                        end;                        if u=false then break;                end;                if u=true then begin                        writeln('Game over!');                        halt;                end;                readln(i,j,k,t,s);                if v[i,j]<>0 then halt;                v[i,j]:=k;                if s='U' then up;                if s='D' then down;                if s='L' then lift;                if s='R' then right;        end;        for b:=1 to 4 do        begin                for c:=1 to 4 do write(v[b,c],' ');                writeln;        end;        close(input);        close(output);end.