第15話 魔方陣生成ソフトの完成コードと解説その５
コード主要部分再掲
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) / 2) 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) / 2) 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) / 2) 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) / 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(n * j + j)
Next
If w = Int(n * (n * n + 1) / 2) Then Call h
End If
tobi:
Next
End Sub
解説の続き 今話から、コードを1行1行追っていきます。
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
によって、位置番号0のセルに
0
1
2
3
4
5
6
7
8
1
2
3
4
5
6
7
8
9
1が入ります。
g = 0ですから、次のIf文
If g > 0 Then
For j = 0 To g - 1
If i = a(j) Then GoTo tobi
Next
End If
は実行されません。
このIf文の仕事の内容は、数字の重複チェックでしたね。
まだ1つのセルに1の数字が入っているだけですから、
重複検査は要らないわけです。
次のIf文
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) / 2) Then GoTo tobi
End If
の任務は横合計が魔方陣の条件を満たしているかを調べるものでした。
If文の条件 g Mod n = n - 1 は、
g Mod n = 0 Mod 3 = 0
n - 1 = 3 - 1 = 2
でしたから、条件が満たされずこのIf文も実行されません。
同様に次の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) / 2) Then GoTo tobi
End If
の業務内容は、縦合計が魔方陣の条件を満たしているかを調べるものでした。
If文の条件 Int(g / n) = n - 1 は、
Int(g / n) = Int(0 / 3) = 0
n - 1 = 3 - 1 = 2
でしたから、条件が満たされず実行されません。
さて、次の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) / 2) Then GoTo tobi
End If
の仕事の内容がは対角線合計検査でした。
g = 0 ですから、当然これも無視されます。
同様に逆対角線合計テスト
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) / 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(n * j + j)
Next
If w = Int(n * (n * n + 1) / 2) Then Call h
End If
は
If 0 + 1 < 3 * 3 Then
Call f(g + 1)
Else
w = 0
For j = 0 To n - 1
w = w + a(n * j + j)
Next
If w = Int(n * (n * n + 1) / 2) Then Call h
End If
If文の肯定側が実施されCall f(g + 1)とf(0)が自分の分身f(1)を生成します。
f(1)の最初のIf文
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
g = 1 ですから重複検査
If g > 0 Then
For j = 0 To g - 1
If i = a(j) Then GoTo tobi
Next
End If
が実行されます。
g - 1 = 0 ですから、j = 0 のときのみが実行されますが、
If i = a(j) Then GoTo tobi
は
If 1 = a(0) Then GoTo tobi
すなわち
If 1 = 1 Then GoTo tobi
で重複検査を合格できず、GoTo tobi によってtobiまで飛び、
Nextによってiは1つ進んで2となります。
すると、
If g > 0 Then
For j = 0 To g - 1
If i = a(j) Then GoTo tobi
Next
End If
の検査は
If i = a(j) Then GoTo tobi
は
If 2 = a(0) Then GoTo tobi
すなわち
If 2 = 1 Then GoTo tobi
となり、GoTo文は実行されずに、
a(g) = i
の業務が遂行されて、位置番号1のセルに
