第３話 魔方陣自動生成ソフトを２次元配列で改良する
を２次元配列で実現するプログラム例
Dim a(16, 16) As Integer, n As Integer, cn As Long
Private Sub CommandButton1_Click()
CommandButton2_Click
cn = 0
n = Cells(4, 2)
Call f(0) 'n次魔方陣作成プロシージャ
End Sub
Sub f(g As Integer)
Dim i As Integer, j As Integer, jy As Integer, jx As Integer
Dim gy As Integer, gx As Integer
gy = Int(g / n)
gx = g Mod n
For i = 1 To n * n
If g > 0 Then
For j = 0 To g - 1
jy = Int(j / n)
jx = j Mod n
If i = a(jy, jx) Then GoTo tobi
Next
End If
a(gy, gx) = i
If gx = n - 1 Then
w = 0
For j = 0 To n - 1
w = w + a(gy, j)
Next
If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
End If
If gy = n - 1 Then
w = 0
For j = 0 To n - 1
w = w + a(j, gx)
Next
If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
End If
If g = n * (n - 1) Then
w = 0
For j = 0 To n - 1
w = w + a(j, n - 1 - j)
Next
If w <> Int(n * (n * n + 1) / 2) Then GoTo tobi
End If
If g + 1 < n * n Then
Call f(g + 1)
Else
w = 0
For j = 0 To n - 1
w = w + a(j, j)
Next
If w = Int(n * (n * n + 1) / 2) Then Call h
End If
tobi:
Next
End Sub
Sub h()
Dim i As Integer, j As Integer, s As Integer, am As Integer, w As Integer
For i = 0 To n - 1
For j = 0 To n - 1
Cells(6 + i + (n + 1) * Int(cn / 5), 2 + j + (n + 1) * (cn Mod 5)) = a(i, j)
Next
Next
cn = cn + 1
tobi:
End Sub
Private Sub CommandButton2_Click()
Rows("5:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さて、それでは
重複条件の検査を
列・行・ブロック内に限定して、
列合計・行合計・対角線合計の条件を外して、
数独解答自動生成ソフトを作ることにしましょう。
将来、１６次数独解答自動生成ソフトも開発しますので、
n = Cells(4, 2)
のnは残しておいて
n = 9
としましょう。
For i = 1 To n * n
は当然
For i = 1 To n
にしなければなりません。
また、シートも
から
に変更しなければなりませんね。
ブロック内の重複検査は難しいですから、
列と行だけ重複しないようにして、第５話あたりで、
数独解答自動生成ソフトが完成するようにしましょう。
数独でさえ兆の単位を越えますから、
Sub f(g As Integer)
If cn = 100 Then Exit Sub
・
・
・
If g + 1 < n * n Then
Call f(g + 1)
If cn = 100 Then Exit Sub
としておいて100個生成したら止めるようにしておきましょう。
尚、数独からブロックの条件を外したものをラテン方陣といいます。
