Towers of Hanoi: Difference between revisions

m
(Added VTL-2)
Line 2,671:
=={{header|FutureBasic}}==
<lang futurebasic>
window 1, @"Towers of Hanoi", ( 0, 0, 300, 300 )
include "ConsoleWindow"
 
void local fn moveMove( n as long, fromPeg as long, toPeg as long, viaPeg as long )
if n > 0
fn moveMove( n-1, fromPeg, viaPeg, toPeg )
print "Move disk from "; fromPeg; " to "; toPeg
fn moveMove( n-1, viaPeg, toPeg, fromPeg )
end if
end fn
 
fn moveMove( 4, 1, 2, 3 )
print
print "Towers of Hanoi puzzle solved."
end
 
HandleEvents
</lang>
 
721

edits