1367 俄罗斯方块

Description

　　相信大家都玩过“俄罗斯方块”游戏吧，“俄罗斯方块”是一个有趣的电脑小游戏，现有一个有C列、行不受限定游戏平台，每一次下落的方块是下列的7个图形的一种： 　　 　　
　　现给出每一列的初始高度和下落方块的形状，请你编写一个程序，求出落地的方法总数，也就是落地后，地表面形成的不同的形状总数。

Input

　　第一行为二个整数C和P，1 ≤ C ≤ 100, 1 ≤ P ≤ 7，表示列数和下落方块的编号 　　第二行共有用一个空隔隔开的C个整数，每一个数字在 0 到 100,之间（包含0和100），表示每一列的初始高度

Output

　　输出为一个整数，表示落地的方法总数

Sample Input

Input1

6 5

2 1 1 1 0 1

Input2

5 1

0 0 0 0 0

Input3

9 4

4 3 5 4 6 5 7 6 6

Sample Output

Output1

5

Output2

7

Output3

1

算法讨论

模拟

var
  n,m,i,j,k,l,sum:longint;
  a:array[1..500] of longint;
begin
  readln(n,m);
  for i:=1 to n do
    read(a[i]);
  if m=1 then
    begin
      sum:=sum+n;
      for i:=1 to n-3 do
        if (a[i]=a[i+1])and(a[i]=a[i+2])and(a[i]=a[i+3]) then
          inc(sum);
    end;
  if m=2 then
    for i:=1 to n-1 do
      if a[i]=a[i+1] then
        inc(sum);
  if m=3 then
    for i:=1 to n-2 do
      begin
        if (a[i]=a[i+1])and(a[i]+1=a[i+2]) then
          inc(sum);
        if a[i]-1=a[i+1] then
          inc(sum);
      end;
  if m=4 then
    for i:=1 to n-2 do
      begin
        if (a[i+1]=a[i+2])and(a[i]-1=a[i+2]) then
          inc(sum);
        if a[i]+1=a[i+1] then
          inc(sum);
      end;
  if m=5 then
    begin
      for i:=1 to n-2 do
        if (a[i]=a[i+1])and(a[i+1]=a[i+2])or(a[i]-1=a[i+1])and(a[i]=a[i+2]) then
          inc(sum);
      for i:=1 to n-1 do
        if (a[i]-1=a[i+1])or(a[i]+1=a[i+1]) then
          inc(sum);
    end;
  if m=6 then
    begin
      for i:=1 to n-2 do
        if (a[i]=a[i+1])and(a[i]=a[i+2]) then
          inc(sum);
      for i:=1 to n-1 do
        if a[i]=a[i+1] then inc(sum);
      for i:=1 to n-1 do
        if a[i]=a[i+1]+2 then inc(sum);
      for i:=1 to n-2 do
        if (a[i+2]=a[i+1])and(a[i]=a[i+2]-1) then inc(sum);
    end;
  if m=7 then
    begin
      for i:=1 to n-2 do
        if (a[i]=a[i+1])and(a[i]=a[i+2]) then
          inc(sum);
      for i:=1 to n-1 do
        if a[i]=a[i+1] then inc(sum);
      for i:=1 to n-1 do
        if a[i]=a[i+1]-2 then inc(sum);
      for i:=1 to n-2 do
        if (a[i]=a[i+1])and(a[i]=a[i+2]+1) then inc(sum);
    end;
  writeln(sum);
end.