第４講　残確定法によるさらなる高速化
第４話　プログラム解説その２

今日は
If g = 2 * n - 1 And n Mod 2 = 0 Then
　　wa = 0
　　For k = 0 To n - 2
　　　　wa = wa + mah(k, n - 1 - k)
　　Next
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
　　If sa < 1 Or sa > n * n Then GoTo owari1
　　If tyouhukuhantei(sa - 1) = 1 Then GoTo owari1
　　mah(i, j) = sa
　　tyouhukuhantei(sa - 1) = 1
　　hhh = 1
　　sakusei (g + 1)
　　GoTo owari1
End If
If g = 2 * n - 2 And n Mod 2 = 1 Then
　　wa = 0
　　For k = 0 To n - 2
　　　　wa = wa + mah(k, n - 1 - k)
　　Next
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
　　If sa < 1 Or sa > n * n Then GoTo owari1
　　If tyouhukuhantei(sa - 1) = 1 Then GoTo owari1
　　mah(i, j) = sa
　　tyouhukuhantei(sa - 1) = 1
　　hhh = 1
　　sakusei (g + 1)
　　GoTo owari1
End If
の部分を解説します。
前半は偶数の場合を担当し、
後半は奇数の場合を担当しています。
理由は番号の付け方にありました。

n = ４　のとき

n = ５　のとき

上の例を見ればおわかりのように、
逆対角線の最後の番号は偶数の場合と奇数の場合で異なります。
偶数のときはg = 2 * n - 1ですし、
奇数の場合はg = 2 * n - 2です。
ですから偶数の場合と奇数の場合を分けなければならないのです。
ずれてしまう訳は、奇数の場合は対角線が中央のところで交錯するため
番号が１つ減ってしまうことにあります。
さて、偶数の場合を例にとって説明しましょう。

g = 2 * n - 1はピンクの位置を表しました。上の表の場合、
　 wa = 0
　　For k = 0 To n - 2
　　　　wa = wa + mah(k, n - 1 - k)
　　Next
　　hhh = 0
　　sa = Int(n * (n * n + 1) / 2) - wa
の計算でsa＝21になりますが、これは
If sa < 1 Or sa > n * n Then GoTo owari1
の部分をクリアできず一個手前の世界に戻り

となります。そして再び

となりますが前回と同様にクリアできず、
何回も前の世界に戻り

のときに初めてsa=15となって、初めて
If sa < 1 Or sa > n * n Then GoTo owari1
をクリアし、sakusei (g + 1)によって

g = 2 * n（つまり番号８）の世界に飛びます。

第４講第３話へ　第４講第５話へ

VB入門講義応用編トップへ

VB入門講義トップへ