Towers of Hanoi: Difference between revisions
Content added Content deleted
(Added Befunge example.) |
|||
Line 507: | Line 507: | ||
PRINTTAB(13+26*(peg%-1)-disc%,20-Size%(peg%))STRING$(2*disc%+1," "); |
PRINTTAB(13+26*(peg%-1)-disc%,20-Size%(peg%))STRING$(2*disc%+1," "); |
||
ENDPROC</lang> |
ENDPROC</lang> |
||
=={{header|Befunge}}== |
|||
This is loosely based on the [[Towers_of_Hanoi#Python|Python]] sample. The number of disks is specified by the first integer on the stack (the initial character <tt>4</tt> in the example below). If you want the program to prompt the user for that value, you can replace the <tt>4</tt> with a <tt>&</tt> (the read integer command). |
|||
<lang befunge>48*2+1>#v_:!#@_0" ksid evoM">:#,_$:8/:.v |
|||
>8v8:<$#<+9-+*2%3\*3/3:,+55.+1%3:$_,#!>#:< |
|||
: >/!#^_:0\:8/1-8vv,_$8%:3/1+.>0" gep ot"^ |
|||
^++3-%3\*2/3:%8\*<>:^:"from peg "0\*8-1<</lang> |
|||
{{out}} |
|||
<pre>Move disk 1 from peg 1 to peg 2 |
|||
Move disk 2 from peg 1 to peg 3 |
|||
Move disk 1 from peg 2 to peg 3 |
|||
Move disk 3 from peg 1 to peg 2 |
|||
Move disk 1 from peg 3 to peg 1 |
|||
Move disk 2 from peg 3 to peg 2 |
|||
Move disk 1 from peg 1 to peg 2 |
|||
Move disk 4 from peg 1 to peg 3 |
|||
Move disk 1 from peg 2 to peg 3 |
|||
Move disk 2 from peg 2 to peg 1 |
|||
Move disk 1 from peg 3 to peg 1 |
|||
Move disk 3 from peg 2 to peg 3 |
|||
Move disk 1 from peg 1 to peg 2 |
|||
Move disk 2 from peg 1 to peg 3 |
|||
Move disk 1 from peg 2 to peg 3</pre> |
|||
=={{header|Bracmat}}== |
=={{header|Bracmat}}== |
||
Line 537: | Line 563: | ||
Move disk from pole 1 to pole 2 |
Move disk from pole 1 to pole 2 |
||
Move disk from pole 3 to pole 2</pre> |
Move disk from pole 3 to pole 2</pre> |
||
=={{header|Brainf***}}== |
=={{header|Brainf***}}== |