Towers of Hanoi: Difference between revisions

=={{header|FutureBasic}}==

<lang futurebasic>

include "ConsoleWindow"

void local fn move( n as long, fromPeg as long, toPeg as long, viaPeg as long )

if n > 0

fn move( n-1, fromPeg, viaPeg, toPeg )

print "Move disk from "; fromPeg; " to "; toPeg

fn move( n-1, viaPeg, toPeg, fromPeg )

end if

end fn

fn move( 4, 1, 2, 3 )

print

print "Towers of Hanoi puzzle solved."

end

</lang>

Output:

<pre>

Move disk from 1 to 3

Move disk from 1 to 2

Move disk from 3 to 2

Move disk from 1 to 3

Move disk from 2 to 1

Move disk from 2 to 3

Move disk from 1 to 3

Move disk from 1 to 2

Move disk from 3 to 2

Move disk from 3 to 1

Move disk from 2 to 1

Move disk from 3 to 2

Move disk from 1 to 3

Move disk from 1 to 2

Move disk from 3 to 2

Towers of Hanoi puzzle solved.

</pre>