Anonymous user
Towers of Hanoi: Difference between revisions
autoit
(autoit) |
|||
Line 95:
}
}</lang>
=={{header|AutoIt}}==
<lang AutoIt>Func move($n, $from, $to, $via)
If ($n = 1) Then
ConsoleWrite(StringFormat("Move disk from pole "&$from&" To pole "&$to&"\n"))
Else
move($n - 1, $from, $via, $to)
move(1, $from, $to, $via)
move($n - 1, $via, $to, $from)
EndIf
EndFunc
move(4, 1,2,3)</lang>
=={{header|AWK}}==
|