プチコンにも逆引き的な書籍欲しいですよね。
セルオートマトンとかで対象のセルの周囲8つのセルの情報を配列に代入。
(X0,Y0)を中心のセルの座標として、A[0~7]に格納するとすると
FOR I=0 TO 7
N=I+(I>3):Y=Y0+(N DIV 3)-1:X=X0+(N MOD 3)-1
IF Y<0||Y>(Y軸の値の最大値) THEN Y=(Y<0)*(Y軸の値の最大値)
IF X<0||X>(X軸の値の最大値) THEN X=(X<0)*(X軸の値の最大値)
(↑端でループさせないなら適当な末端処理)
A[I]=ARRAY[X,Y]
NEXT
↓配置的にはこんな感じで
[0],[1],[2]
[3], ,[4]
[5],[6],[7]
自分はこれよく使うので、一つの命令として欲しい・・・。
0そうだね プレイ済み