Towers of Hanoi: Difference between revisions

=={{header|FreeBASIC}}==

<lang freebasic>' FB 1.05.0 Win64

Sub move(n As Integer, from As Integer, to_ As Integer, via As Integer)

If n > 0 Then

move(n - 1, from, via, to_)

Print "Move disk"; n; " from pole"; from; " to pole"; to_

move(n - 1, via, to_, from)

End If

End Sub

Print "Three disks" : Print

move 3, 1, 2, 3

Print

Print "Four disks" : Print

move 4, 1, 2, 3

Print "Press any key to quit"

Sleep</lang>

{{out}}

<pre>

Three disks

Move disk 1 from pole 1 to pole 2

Move disk 2 from pole 1 to pole 3

Move disk 1 from pole 2 to pole 3

Move disk 3 from pole 1 to pole 2

Move disk 1 from pole 3 to pole 1

Move disk 2 from pole 3 to pole 2

Move disk 1 from pole 1 to pole 2

Four disks

Move disk 1 from pole 1 to pole 3

Move disk 2 from pole 1 to pole 2

Move disk 1 from pole 3 to pole 2

Move disk 3 from pole 1 to pole 3

Move disk 1 from pole 2 to pole 1

Move disk 2 from pole 2 to pole 3

Move disk 1 from pole 1 to pole 3

Move disk 4 from pole 1 to pole 2

Move disk 1 from pole 3 to pole 2

Move disk 2 from pole 3 to pole 1

Move disk 1 from pole 2 to pole 1

Move disk 3 from pole 3 to pole 2

Move disk 1 from pole 1 to pole 3

Move disk 2 from pole 1 to pole 2

Move disk 1 from pole 3 to pole 2

</pre>