9.2 2048 SSL2713

题目

此时，Conan却在一旁玩着2048。
这是一个4*4的矩阵，初始全为0。每次一个没有数字的格子中会随机出现一个2或4，每次可以选择上下左右其中一个方向去滑动，每滑动一次，所有的数字方块都会往滑动的方向靠拢外，相同数字的方块在靠拢、相撞时会相加。
Conan想看看今天自己运气咋样，于是就闭着眼睛，在屏幕上随便滑来滑去。所以这个模拟的任务就交给你了。过了一会，他然后睁开眼睛，如果游戏没有结束（滑动后如果没有空格子，则游戏结束），请输出矩阵（格式参见样例），否则输出“Game over!”（不包含引号）。

题解

纯模拟，就是这么强势
然而我讨厌这个模拟！

注意：
去0和合并最好不要放在一起，合并后自己去0
合并只能合并一次！例
0224——>0044

代码

var
  n,i,x,y,v:longint;
  c,d:char;
  b:boolean;
  a:array[1..4,1..4]of longint;

procedure print;
var
  i,j:longint;
begin
  for i:=1 to 4 do
    begin
      for j:=1 to 4 do
        write(a[i,j],' ');
      writeln;
    end;
end;

procedure left;
var
  i,j,k:longint;
begin
  for i:=1 to 4 do
    begin
      k:=1;
      for j:=1 to 4 do
          if (a[i,j]>0)and(k<=j) then
            begin
              if k<j then
                begin
                  a[i,k]:=a[i,j];
                  a[i,j]:=0;
                end;

              inc(k);
            end;
      for j:=2 to 4 do
          if (a[i,j]=a[i,j-1])and(a[i,j]>0) then
            begin
              a[i,j-1]:=a[i,j]*2;
              a[i,j]:=0;
              for k:=j to 3 do
                begin
                  a[i,k]:=a[i,k+1];
                  a[i,k+1]:=0;
                end;
            end;
    end;
end;

procedure right;
var
  i,j,k:longint;
begin
  for i:=1 to 4 do
    begin
      k:=4;
      for j:=4 downto 1 do
          if (a[i,j]>0)and(k>=j) then
            begin
              if k>j then
                begin
                  a[i,k]:=a[i,j];
                  a[i,j]:=0;
                end;

              dec(k);
            end;
      for j:=3 downto 1 do
          if (a[i,j]=a[i,j+1])and(a[i,j]>0) then
            begin
              a[i,j+1]:=a[i,j]*2;
              a[i,j]:=0;
              for k:=j downto 2 do
                begin
                  a[i,k]:=a[i,k-1];
                  a[i,k-1]:=0;
                end;
            end;
    end;
end;

procedure up;
var
  i,j,k:longint;
begin
  for i:=1 to 4 do
    begin
      k:=1;
      for j:=1 to 4 do
          if (a[j,i]>0)and(k<=j) then
            begin
              if k<j then
                begin
                  a[k,i]:=a[j,i];
                  a[j,i]:=0;
                end;

              inc(k);
            end;
      for j:=2 to 4 do
          if (a[j,i]=a[j-1,i])and(a[j,i]>0) then
            begin
              a[j-1,i]:=a[j,i]*2;
              a[j,i]:=0;
              for k:=j to 3 do
                begin
                  a[k,i]:=a[k+1,i];
                  a[k+1,i]:=0;
                end;
            end;
    end;
end;

procedure down;
var
  i,j,k:longint;
begin
  for i:=1 to 4 do
    begin
      k:=4;
      for j:=4 downto 1 do
          if (a[j,i]>0)and(k>=j) then
            begin
              if k>j then
                begin
                  a[k,i]:=a[j,i];
                  a[j,i]:=0;
                end;

              dec(k);
            end;
      for j:=3 downto 1 do
          if (a[j,i]=a[j+1,i])and(a[j,i]>0) then
            begin
              a[j+1,i]:=a[j,i]*2;
              a[j,i]:=0;
              for k:=j downto 2 do
                begin
                  a[k,i]:=a[k-1,i];
                  a[k-1,i]:=0;
                end;
            end;
    end;
end;

procedure night;
var
  i,j:longint;
begin
  b:=false;
  for i:=1 to 4 do
    for j:=1 to 4 do
      if a[i,j]=0 then
        begin b:=true;exit;end;
end;

begin
  readln(n);
  b:=true;
  for i:=1 to n do
    if b then
      begin
        readln(x,y,v,d,c);
        a[x,y]:=v;
        if c='L' then left else
        if c='U' then up else
        if c='R' then right else down;
        night;
      end else begin writeln('Game over!');halt;end;
  print;
end.