第９話 Ver.2のコード解説その２
コード主要部分再掲
For i = 0 To 8
For j = 0 To 8
If a(i, j) = 0 Then
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 k = 0 To 8
If k <> i And a(k, j) > 0 Then
For l = 0 To m(i, j) - 1
If ls(i, j, l) = a(k, j) Then
w = ls(i, j, m(i, j) - 1)
ls(i, j, m(i, j) - 1) = a(k, j)
ls(i, j, l) = w
m(i, j) = m(i, j) - 1
Exit For
End If
Next
End If
Next
For k = 0 To 8
If i <> 3 * Int(i / 3) + Int(k / 3) And j <> 3 * Int(j / 3) + (k Mod 3) And a(3 * Int(i / 3) + Int(k / 3), 3 * Int(j / 3) + (k Mod 3)) > 0 Then
For l = 0 To m(i, j) - 1
If ls(i, j, l) = a(3 * Int(i / 3) + Int(k / 3), 3 * Int(j / 3) + (k Mod 3)) Then
w = ls(i, j, m(i, j) - 1)
ls(i, j, m(i, j) - 1) = a(3 * Int(i / 3) + Int(k / 3), 3 * Int(j / 3) + (k Mod 3))
ls(i, j, l) = w
m(i, j) = m(i, j) - 1
Exit For
End If
Next
End If
Next
End If
Next
Next
色を付けたそれぞれの部分の任務は、
ピンクがセルの行部分に布置されている数字の確認
（水色の部分）ですし、
青色がセルの列部分に配置されている数字の確認
（オレンジの部分）です。
濃茶がブロック部に置かれている数字の確認
（緑の部分）です。
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 k = 0 To 8
によって行（横列）の中を動いていきますが、
If k <> j And a(i, k) > 0 Then
の k <> j が赤のセル以外を動くように条件付けています。
さらに、 a(i, k) > 0 がありますから、実際に動くのは、
数字の入っているセルだけ動きます。
さて、一番難関な
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
を解説しなければなりません。
皆さん何をしているか分かりますか。
