第２講 局所リスト構造解析
第９話 Sub sds(g As Integer) '数独作成プロシージャの解説その２
数独作成プロシージャ再掲
Private Sub CommandButton1_Click()
・
・
sds (0) '数独作成プロシージャ
・
・
End Sub
Sub sds(g As Integer) '数独作成プロシージャ
Dim i As Byte, ii As Byte, iii As Byte
ii = Int(Rnd * mx(y(g), x(g)))
For i = 0 To mx(y(g), x(g))
iii = (i + ii) Mod (mx(y(g), x(g)) + 1)
p(y(g), x(g)) = rlst(y(g), x(g), iii)
klk (g) '局所リスト構造解析プロシージャ
If g + 1 < hintosu Then
sds (g + 1)
If cn = 1 Then Exit Sub
Else
hyouji '問題表示プロシージャ
cn = cn + 1
Exit Sub
End If
Next
p(y(g), x(g)) = 0
End Sub
解説
sds (1)
が実行されると
For i = 0 To mx(y(1), x(1))
iii = (i + ii) Mod (mx(y(1), x(1)) + 1)
p(y(1), x(1)) = rlst(y(1), x(1), iii)
klk (1) '局所リスト解析プロシージャ
If 1 + 1 < 21 Then
sds (1 + 1)
If cn = 1 Then Exit Sub
Else
hyouji '問題表示プロシージャ
cn = cn + 1
Exit Sub
End If
Next
p(y(1), x(1)) = 0
座標(y(1), x(1))は
0
1
2
3
4
5
6
7
8
0
12
14
16
18
20
22
24
26
28
1
30
32
34
36
38
40
42
44
46
2
48
50
52
54
56
58
60
62
64
3
66
68
70
72
74
76
78
80
1
4
3
5
7
9
11
13
15
17
19
5
21
23
25
27
29
31
33
35
37
6
39
41
43
45
47
49
51
53
55
7
57
59
61
63
65
67
69
71
73
8
75
77
79
0
2
4
6
8
10
（６，８）です。
このセルは、
3がはいったことによる影響を受けないセルですから
p(6, 8) = rlst(6, 8, iii)
によって、
｛１，２，３，４，５，６，７，８，９｝
の内のどれかが入ります。
iiiの値が0の場合には１が選ればれ、
となります。
klk (1) '局所リスト解析プロシージャ
によって、今度は
オレンジと水色のセルのリスト構造解析が行われます。
２つだけ色が違っているのは、
3と1の両方の影響を受けるセルだからです。
水色のセルのリスト構造は、
｛８，２，９，４，５，６，７，１，３｝
mx(3, 8) = 6
オレンジのセルのリスト構造は、すべて
｛９，２，３，４，５，６，７，８，１｝
mx(3, 8) = 7
です。
If 1 + 1 < 21 Then
sds (1 + 1)
すなわち、
If 2 < 21 Then
sds (2)
の条件は当然成り立ちますので、
sds (2)
が実行され、sds(1)は自分の分身sds (2)を作り出します。
すると、
For i = 0 To mx(y(2), x(2))
iii = (i + ii) Mod (mx(y(2), x(2)) + 1)
p(y(2), x(2)) = rlst(y(2), x(2), iii)
klk (2) '局所リスト解析プロシージャ
If 2 + 1 < 21 Then
sds (2 + 1)
If cn = 1 Then Exit Sub
Else
hyouji '問題表示プロシージャ
cn = cn + 1
Exit Sub
End If
Next
p(y(2), x(2)) = 0
のセルのリスト構造
