第10話 Ver.2のコード解説その３
コード主要部分再掲
For k = 0 To 8
If k <> j And a(i, k) > 0 Then
For l = 0 To 8
If ls(i, j, l) = a(i, k) Then
w = ls(i, j, m(i, j) - 1)
ls(i, j, m(i, j) - 1) = a(i, k)
ls(i, j, l) = w
m(i, j) = m(i, j) - 1
Exit For
End If
Next
End If
Next
この部分は、前話の解説でお分かりのように、
水色の部分を動いていました。では、
For l = 0 To 8
If ls(i, j, l) = a(i, k) Then
w = ls(i, j, m(i, j) - 1)
ls(i, j, m(i, j) - 1) = a(i, k)
ls(i, j, l) = w
m(i, j) = m(i, j) - 1
Exit For
End If
Next
においては、何をしているのでしょうか。
k = 0 のときを例に説明しましょう。
これは図の
3の場合です。
ずばり、オレンジの任務は
『3をリストから外す!』
です。
初期化によって、赤色のセルのリスト（候補数字）は
１，２，３，４，５，６，７，８，９
で、候補数字数も９個にされていました。
k = 0の場合、
オレンジが実行されると、
１，２，９，４，５，６，７，８，３
となり、候補数字数も８個になります。
つまり、有効リストは
１，２，９，４，５，６，７，８，３
となります。候補数字数が８個ということは、
最初の８個が実際に使われるリスト（候補数字）だということです。
（実際に使われるリストを有効リストと表現したわけです。）
つまり、３は対象外にされるということです。
１，２，９，４，５，６，７，８，＊
ただし、今回開発したソフトは試行錯誤（トライ＆エラー）によって問題を解いていますから、
失敗してしまった場合復元しなければなりませんので、
１，２，９，４，５，６，７，８，３
３をリストから１時的に外しているだけです。
今回開発したソフトは、実は常に９個がリストされています。
どこまでが有効かがm(i, j)によって示されているわけです。
m(i, j) = m(i, j) - 1の操作によって、最大リスト数m(i, j)は、
９個から８個にされるわけです。
For l = 0 To 8
If ls(i, j, l) = a(i, k) Then
w = ls(i, j, m(i, j) - 1)
ls(i, j, m(i, j) - 1) = a(i, k)
ls(i, j, l) = w
m(i, j) = m(i, j) - 1
Exit For
End If
Next
では、緑の枠割りは何でしょうか。
３と９の交換です。
プログラムの一番最初においては、赤いセルのリスト順は、
１，２，３，４，５，６，７，８，９
となっていますが、
プログラムが進むと、リストの順番はどんどん変更されていて、
７，８，４，５，１，３，６，９，２
等となっていたりします。
そうすると、外したい数字がどこにあるか分からないわけです。
外したい数字が何番目にリストされているのかを探す仕事をしているのが、
For l = 0 To 8
If ls(i, j, l) = a(i, k) Then
の部分です。これが分かれば、次の３行に任務は明らかです。
w = ls(i, j, m(i, j) - 1)
ls(i, j, m(i, j) - 1) = a(i, k)
ls(i, j, l) = w
そうです。
m(i, j)が９で、リスト順が
１，２，３，４，５，６，７，８，９
ならば、３と９の交換ですし、
m(i, j)が７で、リスト順が
７，８，４，５，１，３，６，９，２
ならば、３と６の交換です。
３と６を交換
７，８，４，５，１，６，３，９，２
してから、m(i, j) = m(i, j) - 1によって有効範囲を１つ減らして、
７，８，４，５，１，６，３，９，２
としているわけです。
Exit For
については、何も説明は必要ないですね。
外す候補数字が分かれば、
For文によるそれ以上の探索は無意味ですから、
強制的にFor文を終了させているわけです。
一応Ver.2の解説は一通り終わりました。
解説されても『全然分からない!!!!』の感想をお持ちの方がたくさんいらっしゃるでしょう。
でも、忍耐強く何回も読み返して下さい。
そして、５，６回読んで分からなかったとしても悲観なさらないで下さい。
少し時間をおいてから読み返すと電撃にあったように理解できたり、
自分でプログラミングしていくと分かったりするものです。
対象が難しいのですから、
簡単に理解できなくて当然です。
数独＝ナンプレはルールは簡単ですが、
かなり奥が深いわけです。
ですから、世界選手権が開かれるほど人気があるわけです。
良問難問数独自動生成アプリVer.4（対称形） 数独自動生成（初心者から中級者用）アプリ
等を開発した私ですが、
数独の奥義は、まだまだ理解していないような気がしています。
ですから、皆さんあきらめないで粘り強く取り組んで下さい。
これで第２３講は終了して、第24講では各種のグラフに挑戦します。
グラフを作るのは、C言語、C++、Java等では特別の技術が必要ですが、
幸いにしまして、エクセルにはグラフを簡単に作成できる機能があります。
これを利用してVBAでいろいろなグラフを作成してみましょう。
（素数の実際の存在確率−系列1とガウスの近似式による存在確率-系列2)
