Towers of Hanoi: Difference between revisions

Content added Content deleted
Line 2,670: Line 2,670:


=={{header|FutureBasic}}==
=={{header|FutureBasic}}==
<lang futurebasic>
<lang futurebasic>window 1, @"Towers of Hanoi", ( 0, 0, 300, 300 )
window 1, @"Towers of Hanoi", ( 0, 0, 300, 300 )


void local fn Move( n as long, fromPeg as long, toPeg as long, viaPeg as long )
void local fn Move( n as long, fromPeg as long, toPeg as long, viaPeg as long )
if n > 0
if n > 0
fn Move( n-1, fromPeg, viaPeg, toPeg )
fn Move( n-1, fromPeg, viaPeg, toPeg )
print "Move disk from "; fromPeg; " to "; toPeg
print "Move disk from "; fromPeg; " to "; toPeg
fn Move( n-1, viaPeg, toPeg, fromPeg )
fn Move( n-1, viaPeg, toPeg, fromPeg )
end if
end if
end fn
end fn


Line 2,685: Line 2,684:
print "Towers of Hanoi puzzle solved."
print "Towers of Hanoi puzzle solved."


HandleEvents
HandleEvents</lang>
</lang>


Output:
Output: