第13話 魔方陣生成ソフトのコード解説その３
コード主要部分再掲
Sub f(g As Integer)
Dim i As Integer, j As Integer
For i = 1 To n * n
If g > 0 Then
For j = 0 To g - 1
If i = a(j) Then GoTo tobi
Next
End If
a(g) = i
If g Mod n = n - 1 Then
w = 0
For j = 0 To n - 1
w = w + a(n * Int(g / n) + j)
Next
If w <> Int(n * (n * n + 1) / 6) Then GoTo tobi
End If
If Int(g / n) = n - 1 Then
w = 0
For j = 0 To n - 1
w = w + a(n * j + (g Mod n))
Next
If w <> Int(n * (n * n + 1) / 6) Then GoTo tobi
End If
If g = n * n - 1 Then
w = 0
For j = 0 To n - 1
w = w + a(n * j + j)
Next
If w <> Int(n * (n * n + 1) / 6) Then GoTo tobi
End If
If g = n * (n - 1) Then
w = 0
For j = 0 To n - 1
w = w + a(n * j + n - 1 - j)
Next
If w <> Int(n * (n * n + 1) / 6) Then GoTo tobi
End If
If g + 1 < n * n Then
Call f(g + 1)
Else
Call h
End If
tobi:
Next
End Sub
解説の続き
If Int(g / n) = n - 1 Then
w = 0
For j = 0 To n - 1
w = w + a(n * j + (g Mod n))
Next
If w <> Int(n * (n * n + 1) / 6) Then GoTo tobi
End If
の任務内容を確認していきます。
g = 6 の場合
j = 0 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 0 + (6 Mod 3)) = w + a(0)
j = 1 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 1 + (6 Mod 3)) = w + a(3)
j = 6 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 2 + (6 Mod 3)) = w + a(6)
0
1
2
3
4
5
6
7
8
以上から、１列目の合計が行われていることが分かります。
g = 7 の場合
j = 0 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 0 + (7 Mod 3)) = w + a(1)
j = 1 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 1 + (7 Mod 3)) = w + a(4)
j = 6 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 2 + (7 Mod 3)) = w + a(7)
0
1
2
3
4
5
6
7
8
以上から、２列目の合計が行われていることが分かります。
g = 8 の場合
j = 0 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 0 + (8 Mod 3)) = w + a(2)
j = 1 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 1 + (8 Mod 3)) = w + a(5)
j = 6 のとき、
w = w + a(n * j + (g Mod n))= w + a(3 * 2 + (8 Mod 3)) = w + a(8)
