第４話 ブロックはどう動かすの？
オレンジ（４，５）に入っている数字とのブロック内の重複を調べるとき
緑のセルとの重なりを調べれば良いのですが、
緑の部分を動かすには、
ブロックの先頭の座標（３，３）
を作り出さなければなりません。
（３，３）を始まりにしてFor文で動かせば良いのです。
つまり、（４，５）から（３，３）を作り出すことが課題になります。
今は具体的な数字で説明していますが、
文字(y(g), x(g))やi等から作り出さないと、一般的にはなりません。
プログラムが汎用的になるためには、
コードは可能な限り一般的にしなければなりません。
どうしたらよいでしょうか。
答は例によって３０行下。
答
Dim ybs As Byte, xbs As Byte
Dim isy As Byte, ia As Byte
ybs = rn * Int(y(g) / rn)
xbs = rn * Int(x(g) / rn)
For i = 0 To n - 1
isy = Int(i / rn)
ia = i Mod rn
If ybs + isy <> y(g) And xbs + ia <> x(g) And p(ybs + isy, xbs + ia) = 0 Then
・
・
解説
ybs = rn * Int(y(g) / rn)
xbs = rn * Int(x(g) / rn)
です。（４，５）の場合で、実際に計算してみると、
ybs = rn * Int(y(g) / rn) = 3 * Int(4 / 3) = 3 * 1 = 3
xbs = rn * Int(x(g) / rn) = 3 * Int(5 / 3) = 3 * 1 = 3
で、確かに（４，５）から（３，３）が作り出されています。
は２次元ですから、２次元For文にしても良いのですが、
１次元For文で動かす方法があります。
それが、
isy = Int(i / rn)
ia = i Mod rn
です。
実際に、iを0から8まで動かすと、
i = 0 のとき、
isy = Int(i / rn) = Int(0 / 3) = 0
ia = i Mod rn = 0 mod 3 = 0
i = 1 のとき、
isy = Int(i / rn) = Int(1 / 3) = 0
ia = i Mod rn = 1 mod 3 = 1
i = 2 のとき、
isy = Int(i / rn) = Int(2 / 3) = 0
ia = i Mod rn = 2 mod 3 = 2
i = 3 のとき、
isy = Int(i / rn) = Int(3 / 3) = 1
ia = i Mod rn = 3 mod 3 = 0
i = 4 のとき、
isy = Int(i / rn) = Int(4 / 3) = 1
ia = i Mod rn = 4 mod 3 = 1
i = 5 のとき、
isy = Int(i / rn) = Int(5 / 3) = 1
ia = i Mod rn = 5 mod 3 = 2
i = 6 のとき、
isy = Int(i / rn) = Int(6 / 3) = 2
ia = i Mod rn = 6 mod 3 = 0
i = 7 のとき、
isy = Int(i / rn) = Int(7 / 3) = 2
ia = i Mod rn = 7 mod 3 = 1
i = 8 のとき、
isy = Int(i / rn) = Int(8 / 3) = 2
ia = i Mod rn = 8 mod 3 = 2
ですから、順に
（０，０）、（０，１）、（０，２）、（１，０）、（１，１）、（１，２）、（２，０）、（２，１）、（２，２）
が実現できていますね。
Dim ybs As Byte, xbs As Byte
Dim isy As Byte, ia As Byte
ybs = rn * Int(y(g) / rn)
xbs = rn * Int(x(g) / rn)
For i = 0 To n - 1
isy = Int(i / rn)
ia = i Mod rn
この手法是非覚えて下さい。
理由は、行・列を動かすとき、For文は１次元ですから、
ブロックも１次元に合わせたいのです。
結局、ブロックも行・列と本質はまったく同じなのです。
１次元に合わせておくとコードも基本的に同じなり、
コピペと置換を組み合わせれば、行のコードから簡単に作り直せます。
尚、ybs + isy <> y(g) And xbs + ia <> x(g) And が入っているのは
白のセルは動かさないようにするためです。
白のセルは行と列で検査済みですから。
では、第３話と第４話の説明を参考にして、局所リスト構造解析を組み入れることによって、
第１講第６話の 参考ダウンロード 添付ファイルを改良して
のように、どの行にもどの列にもどのブロックにも数字が重複しないように、
配置するプログラムを考えていきましょう。
以上の説明があっても、まだまだ乗り越えなければならない課題がたくさんあり、
プログラムを組むのは大変難しいといえますので、
課題は何でどう解消すべきかを次話で説明しましょう。
