生命游戏 题解

生命游戏(Game of life)由英国数学家John Conway在1970年发明。事实上，它是一个“零人游戏”，也没有胜负之分，而是相当于一个确定性自动机。
游戏在N×M的细胞组成的矩阵里进行，每个细胞每个时刻的状态可能是“存活”或者“休眠”两种,细胞矩阵的状态会按以下规则进行演化：
一个存活状态的细胞，在某一秒，若周围的存活状态的细胞数目不足两个，则下一秒将由于孤独而进入休眠状态。
一个存活状态的细胞，在某一秒，若周围的存活状态的细胞数目超过三个，则下一秒将由于过度拥挤而进入休眠状态。
一个存活状态的细胞，在某一秒，若周围的存活状态的细胞数目为两或三个，则下一秒将继续保持存活状态。
一个休眠状态的细胞，在某一秒，若周围的存活状态的细胞数目为正好三个，则认为是比较适合生存的状态，将于下一秒进入存活状态。
这里“周围”的范围包括一个细胞的上、下、左、右、左上、左下、右上、右下的细胞，如果存在的话。
现在，给定一个初始状态（即第1秒时的状态），请按照规则计算第T秒时的状态。

输入格式

第一行，三个空格隔开的整数：M、N和T。
第二行开始的N行，每行M个字符，“0”或“1”分别代表休眠状态与存活状态的细胞。

输出格式

输出N行，每行M个“0”或“1”，表示第T秒时的状态。

样例输入

5 5 1
00000
01100
01010
00100
00000

样例输出

00000
01100
01010
00100
00000

数据范围

1 <= N, M <= 100
1 <= T <= 64

var i,j,k,m,n,t,d,l,x,y:longint;
a:array[0..1001,0..1001] of longint;
st:string;
procedure count;
var i1,j1,k1:longint;
begin
l:=0;d:=0;
if a[j,k+1]=1 then inc(l) else inc(d);
if a[j,k-1]=1 then inc(l) else inc(d);
if a[j+1,k]=1 then inc(l) else inc(d);
if a[j-1,k]=1 then inc(l) else inc(d);
if a[j+1,k+1]=1 then inc(l) else inc(d);
if a[j-1,k+1]=1 then inc(l) else inc(d);
if a[j-1,k-1]=1 then inc(l) else inc(d);
if a[j+1,k-1]=1 then inc(l) else inc(d);
end;
begin
assign(input,'life.in');reset(input);
assign(output,'life.out');rewrite(output);
readln(m,n,t);
fillchar(a,sizeof(a),0);
for i:=1 to n do begin
read(st);
for j:=1 to m do if st[j]='0' then a[i,j]:=0 else a[i,j]:=1;
readln;
end;
for i:= 1 to t-1 do begin
for j:=1 to n do begin
for k:=1 to m do begin
count;
if a[j,k]=0 then begin
if l=3 then a[j,k]:=1;
end else
if a[j,k]=1 then begin
if l<2 then a[j,k]:=0;
if l>3 then a[j,k]:=0;
end;
end;
end;
end;
for i:=1 to n do begin
for j:=1 to m do write(a[i,j]);
writeln;
end;
close(input);close(Output);
end.