第２話 白紙の状態における全体構造解析
皆さんに、局所構造解析をプログラムして頂くために、
第２話では、白紙
の状態における全体構造解析を説明しておきましょう。
リストを収める配列をグローバル配列として
Dim rlst(8, 8 ,8) As Byte
と宣言します。
何故、３次元配列になるかと思うしますと、
各セル（２次元に動きます）に最大９個の候補数字がリストされる方です。
また、候補数字の個数を納める配列もグローバル配列として、
Dim mx(8, 8) As Byte
と宣言します。
こちらは２次元ですね。
各セルに入る候補数字の個数を納める配列ですから。
rlstとmxは最初に次のように初期化することによって全体リスト構造解析は完成します。
For i = 0 To n - 1
For j = 0 To n - 1
mx(i, j) = 8
For k = 0 To n - 1
rlst(i, j ,k) = k + 1
Next
Next
Next
皆さんの頭には
mx(i, j) = 8
について？が浮かんでいるでしょうか。
最初、
すべてのセルに何の数字を入っていなければ、
候補数字個数は９個ではないか？
でもいいんですよ。
配列の添え字は0からはじまるのですから、
０，１，２，３，４，５，６，７，８
で９個ですよね。
ですから、
mx(i, j) = 8
でよいのです。
上の初期化によって
mx(0, 0) = 8
mx(0, 1) = 8
mx(0, 2) = 8
・
・
mx(1, 0) = 8
mx(1, 1) = 8
mx(1, 2) = 8
・
・
mx(8, 8) = 8
rlst(0, 0, 0)= 1
rlst(0, 0, 1)= 2
rlst(0, 0, 2)= 3
・
・
rlst(0, 0, 8)= 9
rlst(0, 1, 0)= 1
rlst(0, 1, 1)= 2
・
・
rlst(0, 1, 8)= 9
rlst(1, 0, 0)= 1
rlst(1, 0, 1)= 2
・
・
rlst(8, 8, 8)= 9
となり、白紙
状態における全体リスト構造解析が完成します。
以降はセルに数字を入力する度に、
局所構造解析を行って、全体構造解析を修正していけば良いのです。
では、皆さんセルに数字が入力される度に、
局所構造解析をするプログラムを考えて下さい。
２０，３０分考えても分からない場合は、第３話をクリックすることをおすすめします。
第３話で考え方を説明しています。
