Towers of Hanoi: Difference between revisions

=={{header|Refal}}==

<syntaxhighlight lang="refal">$ENTRY Go {

= <Move 4 1 2 3>;

};

Move {

0 e.X = ;

s.N s.Src s.Via s.Dest, <- s.N 1>: s.Next =

<Move s.Next s.Src s.Dest s.Via>

<Prout "Move disk from pole" s.Src "to pole" s.Dest>

<Move s.Next s.Via s.Src s.Dest>;

};</syntaxhighlight>

{{out}}

<pre>Move disk from pole 1 to pole 2

Move disk from pole 1 to pole 3

Move disk from pole 2 to pole 3

Move disk from pole 1 to pole 2

Move disk from pole 3 to pole 1

Move disk from pole 3 to pole 2

Move disk from pole 1 to pole 2

Move disk from pole 1 to pole 3

Move disk from pole 2 to pole 3

Move disk from pole 2 to pole 1

Move disk from pole 3 to pole 1

Move disk from pole 2 to pole 3

Move disk from pole 1 to pole 2

Move disk from pole 1 to pole 3

Move disk from pole 2 to pole 3</pre>