第8講　数独の問題を解くプログラムＶｅｒ（−１）
第２話　Sub hyoujiの改良前半

　　　　　　　If cn = 1 Then Exit Sub
と
　　　　　　　　　　　 If g + 1 < n * n * n * n Then
　　　　　　　　　　　　　　　　sakusei (g + 1)
　　　　　　　　　　　　Else
　　　　　　　　　　　　　　　　cn = 1
　　　　　　　　　　　　　　　　hyouji
　　　　　　　　　　　　　　　　Exit Sub
　　　　　　　　　　　　End If
の部分の追加および変更の理由は、
数独の問題では解答は１つしかありませんので、
解答が見つかればそれ以上の探索は必要ありませんので、
探索を打ち切らせるためです。
（正しい数独の問題は、解答が１つですが、
本当にその問題が正しい問題なのか、つまり答えが１つしかないのかを
検討させたい場合はこの追加および変更は必要ありません。）

さて、
　　　　　　　 If mah(i, j) > 0 Then
　　　　　　　　　　　If g + 1 < hs Then
　　　　　　　　　　　　　　　sakusei (g + 1)
　　　　　　　　　　　　　　　Exit Sub
　　　　　　　　　　　Else
　　　　　　　　　　　　　　　cn = 1
　　　　　　　　　　　　　　　hyouji
　　　　　　　　　　　　　　　Exit Sub
　　　　　　　　　　　End If
　　　　　　　　　End If
では何をしているのでしょうか。
この説明は、次話にまわしたいと思います。

For l = 0 To j - 1　が　For l = 0 To 8
および
For l = 0 To i - 1　が　For l = 0 To 8
に変わった理由は、数独プログラム改良例では

セル０番から順番に数字を入れていきました。
行について調べるときは、自分より前のところに重複がないか調べれば良かったのです。
自分の後のところにはまだ数字は入っていなくて空欄なので自分より後ろは調べる必要がなかったのです。
列も同様です。

ところが数独の問題では、いくつかのセルに最初から数字が入っています。
すべての問題を解かせるプログラムですから、
数字はどこに入っているかは事前にはわかりません。

したがって、数独プログラム改良例のときにはセル4について調べるときにはセル０，１，２，３
についてのみ調べれば良かったのですが、数独の問題を解く方では、、
セル５，６，７，８にも数字が入っている可能性があるので、結局行全体を調べなければならないのです。

列についても同様です。

　　　　　　　　　　　　If ia > 0 Then
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　　　For m = 0 To 2
　　　　　　　　　　　　　　　　　　　　　　　If (j - ja + m) <> j And (i - ia + l) <> i Then
　　　　　　　　　　　　　　　　　　　　　　　　　　　If mah(i, j) = mah(i - ia + l, j - ja + m) Then GoTo owari
　　　　　　　　　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　End If
の部分の変更も

数独プログラム改良例では順番に入っていくので
例えば、セル40番について調べるときは自分より前の３０，３１，３２，３９
についてのみ調べれば良かったのです。だから、
　　　　　　　　　　　　If ia > 0 Then
　　　　　　　　　　　　　　　For l = 0 To ia - 1
　　　　　　　　　　　　　　　　　　　For m = 0 To n - 1
　　　　　　　　　　　　　　　　　　　　　　　If (j - ja + m) <> j And (i - ia + l) <> i Then
　　　　　　　　　　　　　　　　　　　　　　　　　　　If mah(i, j) = mah(i - ia + l, j - ja + m) Then GoTo owari
　　　　　　　　　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　End If
となっていたのですが、数独の問題を解くプログラムでは最初から４１，４８，４９，５０
にも数字が入っているという可能性があるのでピンクの小ブロック内を全部を調べなければならないので、
　　　　　　　　　　　　If ia > 0 Then
　　　　　　　　　　　　　　　For l = 0 To 2
　　　　　　　　　　　　　　　　　　　For m = 0 To 2
　　　　　　　　　　　　　　　　　　　　　　　If (j - ja + m) <> j And (i - ia + l) <> i Then
　　　　　　　　　　　　　　　　　　　　　　　　　　　If mah(i, j) = mah(i - ia + l, j - ja + m) Then GoTo owari
　　　　　　　　　　　　　　　　　　　　　　　End If
　　　　　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　　　　Next
　　　　　　　　　　　　End
となっているのです。

第１話へ　第３話へ

VB入門講義応用編トップへ

VB入門講義トップへ