上手くいかない原因は、 数独自動生成アプリ9×9・16×16・25×25統合版Ver.1
の注釈文に書いてある通りです。
その注釈文を引用しましょう。
−−−以下引用−−−
Dim cn As Byte '解答個数
Dim kahi(24, 24, 24) As Byte
'kahi(i,j,k)：k+1は 値が0のときcll(i,j)に代入できる
'1ときは代入できない。
'イメージは0が白で、1が黒である。黒は入力不可を示す。
Dim ckahi(624, 24, 24, 24) As Byte
'kahi(i,j,k)の４次元保存
'最初の次元はgすなわち時間を表す。
'以下時間とはgの比喩であり、gは進んだり戻ったりするので、
'時間も進んだり戻ったりすることになる。
'うまくいかなかったとき、過去に戻ってやり直している。
'原因は過去にあるからである。
'kahi(i,j,k)もmx(i,j)もrlst(i,j,k)も時間とともに変遷する。
'復元する際に、どの時間(g)のときのkahi(i,j,k)・mx(i,j)・rlst(i,j,k)
'なのかが問題になる。
'次の２次元は、場所（縦座標と横座標）である。
'最後の次元は、（セルに入る数字）−１である。
Dim n As Integer '次元数
Dim cll(24, 24) As Byte 'セルに問題と解答を入力
Dim ccll(24, 24) As Byte
Dim mx(24, 24) As Byte 'cll(i,j)に代入できるリスト数
Dim cmx(624, 24, 24) As Byte
'mx(i,j)の３次元保存
'最初の次元は時間を表し、残りの次元は場所（縦座標と横座標）に対応する。
Dim rlst(24, 24, 24) As Byte 'cll(i,j)に代入できる候補(リスト)数字
Dim crlst(624, 24, 24, 24) As Byte
'rlst(i,j,k)の４次元保存
'最初の次元はgすなわち時間を表す。
'次の２次元は、場所（縦座標と横座標）である。
'最後の次元は、リスト番号−１である。
'リスト番号はリスト(候補されている)されている数字の順番を示す。
Dim hintosu As Integer 'ヒント数
Dim y(624) As Byte 'y座標(縦座標）
Dim x(624) As Byte 'x座標(横座標）
Dim cy(624) As Byte 'y座標(縦座標）
Dim cx(624) As Byte 'x座標(横座標）
−−−以上引用−−−
かなり注釈文が入れてあることが分かります。
これは、自分のためと開発している途中で、
是非ともexcel 2016 vba 入門講義の題材にしたい気持ちが強くなったからです。
引用部分の中心をもう一度引用します。
'最初の次元はgすなわち時間を表す。
'以下時間とはgの比喩であり、gは進んだり戻ったりするので、
'時間も進んだり戻ったりすることになる。
'うまくいかなかったとき、過去に戻ってやり直している。
'原因は過去にあるからである。
'kahi(i,j,k)もmx(i,j)もrlst(i,j,k)も時間とともに変遷する。
'復元する際に、どの時間(g)のときのkahi(i,j,k)・mx(i,j)・rlst(i,j,k)
'なのかが問題になる
gは時間の比喩であると説明していますが、
正確には、セルの位置です。
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
上の表のピンクの数字がgです。
For i = 0 To n - 1
If p(y(g), i) = 0 Then
hth(y(g), i) = 0
For j = 0 To mx(y(g), i)
If p(y(g), x(g)) = rlst(y(g), i, j) Then
If mx(y(g), i) = 0 Then
klk = 0
Exit Function
End If
hth(y(g), i) = 1
For k = 0 To n - 1
crlst(y(g), i, k) = rlst(y(g), i, k)
Next
cmx(y(g), i) = mx(y(g), i)
w = rlst(y(g), i, j)
rlst(y(g), i, j) = rlst(y(g), i, mx(y(g), i))
rlst(y(g), i, mx(y(g), i)) = w
mx(y(g), i) = mx(y(g), i) - 1
Exit For
End If
Next
End If
Next
・
Sub hukugen(g As Integer)
Dim i As Byte, j As Byte, ybs As Byte, xbs As Byte, isy As Byte, ia As Byte
For i = 0 To n - 1
If hth(y(g), i) = 1 Then
For j = 0 To n - 1
rlst(y(g), i, j) = crlst(y(g), i, j)
Next
mx(y(g), i) = cmx(y(g), i)
End If
Next
ではだめな理由は、どの位置の数字を基に、
局所リスト構造解析がなされたのかを把握しないと、
オレンジのセルの復元を行う際に、
２によって変更されたリスト構造を元に戻すのか、
８によって変更されたリスト構造を元に戻すのか、
７によって変更されたリスト構造を元に戻すのか、
４によって変更されたリスト構造を元に戻すのか、
どれなのかが分からずに正確な復元が出来ないのです。
配列に位置情報であるgを添え字として組み込めば、
２，８，７，４のどれの影響を排除するのかが分かります。
