DouKaku?

!変数宣言が必要
/*初期マップとは配列=,
"0,1,0,0,0,0,1,1,1,0
0,0,0,0,1,0,0,1,1,0
0,0,0,1,0,0,1,0,1,0
1,0,1,1,0,0,1,0,0,0
0,1,0,0,0,0,0,0,1,0
1,0,0,0,1,0,1,1,0,1
0,1,0,0,0,0,1,0,0,0
0,0,0,0,0,0,0,0,0,1
1,0,0,0,0,0,1,0,0,1
0,0,0,0,1,1,0,0,1,0"
wとは整数=9
hとは整数=9*/

初期マップとは配列=,
"0,0,0,0,0,0
0,0,0,1,1,0
0,0,0,1,1,0
0,1,1,0,0,0
0,1,1,0,0,0
0,0,0,0,0,0"

wとは整数=5
hとは整数=5
現マップとは配列=初期マップ
次マップとは配列
iとは整数
jとは整数
セル数とは整数
マップラベルとはラベル

マップラベル=現マップをマップ整形
1の間
    iで0からhまで繰り返す
        jで0からwまで繰り返す
            セル数=周囲セル数取得(現マップ,i,j,h,w)
            もし(現マップ[i,j]=0)ならば
                もし(セル数=3)ならば
                    次マップ[i,j]=1 #誕生
                違えば
                    次マップ[i,j]=0 #死亡
            違えば
                もし(セル数=2||セル数=3)ならば
                    次マップ[i,j]=1 #維持
                違えば
                    次マップ[i,j]=0 #死亡
    現マップ=次マップ
    マップラベル=現マップをマップ整形
    0.2秒待つ

●マップ整形(mapを)
    tmpとは文字列
    tmplineとは文字列
    mapを反復
        tmpline=対象の改行を""に置換
        tmpline=tmplineの0を"　"に置換
        tmpline=tmplineの1を"■"に置換
        tmp=tmp&tmpline&改行
    tmpで戻る

●周囲セル数取得(map,y,x,h,w)
    nxとは整数
    nyとは整数
    countとは整数
    "{y-1},{x-1}
{y-1},{x}
{y-1},{x+1}
{y},{x-1}
{y},{x+1}
{y+1},{x-1}
{y+1},{x}
{y+1},{x+1}"を反復
        もし(対象[0,0]=-1)ならば
            ny=h
        違えば
            ny=対象[0,0]
        もし(対象[0,1]=-1)ならば
            nx=w
        違えば
            nx=対象[0,1]
        もし(map[ny,nx]=1)ならば
            count=count+1
    countで戻る

●周囲セル数取得(map,y,x,h,w)
    nxとは整数
    nyとは整数
    countとは整数
    "{y-1},{x-1}
{y-1},{x}
{y-1},{x+1}
{y},{x-1}
{y},{x+1}
{y+1},{x-1}
{y+1},{x}
{y+1},{x+1}"を反復
        もし(対象[0,0]=-1)ならば,ny=h
        違えば,もし(対象[0,0]=h+1)ならば,ny=0
        違えば,ny=対象[0,0]
        もし(対象[0,1]=-1)ならば,nx=w
        違えば,もし(対象[0,1]=w+1)ならば,nx=0
        違えば,nx=対象[0,1]
        もし(map[ny,nx]=1)ならば
            count=count+1
    countで戻る