6/6
Option Implicit
これを終える時、世界は終焉を迎えると聞く
Sub Hanoi64()
Call Hanoi(64, "A", "C", "B")
End Sub
Sub Hanoi(n As Long, FromPeg As String, ToPeg As String, AuxPeg As String)
If n = 0 Then Exit Sub
' n-1枚を補助柱に移動
Call Hanoi(n - 1, FromPeg, AuxPeg, ToPeg)
' 最下段のディスクを目的柱に移動
Debug.Print "Move disk " & n & " from " & FromPeg & " to " & ToPeg
' n-1枚を目的柱に移動
Call Hanoi(n - 1, AuxPeg, ToPeg, FromPeg)
End Sub
悠久の感謝をあなたへ
