Anonymous user
Towers of Hanoi: Difference between revisions
→{{header|Ursala}}
m (→{{header|Brainfuck}}: Sorry...we censor here) |
|||
Line 3,036:
start -> end
middle -> end</pre>
=={{header|VBScript}}==
Derived from the BBC Basic version.
<lang VBScript>Sub Move(n,fromPeg,toPeg,viaPeg)
If n > 0 Then
Move n-1, fromPeg, viaPeg, toPeg
WScript.StdOut.Write "Move disk from " & fromPeg & " to " & toPeg
WScript.StdOut.WriteBlankLines(1)
Move n-1, viaPeg, toPeg, fromPeg
End If
End Sub
Move 4,1,2,3
WScript.StdOut.Write("Towers of Hanoi puzzle completed!")</lang>
{{out}}
<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 completed!</pre>
=={{header|Vedit macro language}}==
| |||