第５話 全体リスト構造解析Total方式の解説その３
For i = 0 To n_1
For j = 0 To n_1
If p(j, i) = 0 Then
For k = 0 To n_1
If p(k, i) > 0 Then
kh(j, i, p(k, i) - 1) = 0
End If
Next
End If
Next
Next
においては何をしているかは
列の観点から今度は
に塗られる色が決定されます。今回は、
と
から、７の色と８の色(この色はすでに塗られているので同じ色を重ねます）が塗られます。
Dim ybs As Byte, xbs As Byte
Dim js As Byte, ja As Byte
Dim ks As Byte, ka As Byte
For i = 0 To n_1
ybs = rn * Int(i / rn)
xbs = rn * (i Mod rn)
For j = 0 To n_1
js = Int(j / rn)
ja = j Mod rn
If p(ybs + js, xbs + ja) = 0 Then
For k = 0 To n_1
ks = Int(k / rn)
ka = k Mod rn
If k <> j And p(ybs + ks, xbs + ka) > 0 Then
kh(ybs + js, xbs + ja, p(ybs + ks, xbs + ka) - 1) = 0
End If
Next
End If
Next
Next
はとても難しいコードですが、ここまでついてきた優秀な皆さんはもうお分かりですね。
同ブロックの
と
から更に、に７の色(これ列の条件からすでに塗られているので同じ色が重ねられる）と９の色が塗られます。
以上を通して
に塗られた色は２，４，８，７，９です。つまり、セル
には２，４，７，８，９が入力不可で、１，３，５，６が入力可能性があることが分かります。
For i = 0 To n_1
For j = 0 To n_1
If p(j, i) = 0 Then
がありますので、全空欄について同様な分析をしているわけです。
