Revision as of 20:41, 31 March 2012 (view source) rosettacode>Bearophile m (Updated tags D entries) ← Older edit		Revision as of 15:23, 2 April 2012 (view source) Bartj (talk \| contribs) (added Bracmat) Newer edit →
Line 170: 250 SP = SP - 1 : REM RESTORE STACK POINTER FOR CALLER 260 RETURN</lang> =={{header\|Bracmat}}== <lang bracmat>( ( move = n from to via . !arg:(?n,?from,?to,?via) & ( !n:>0 & move$(!n+-1,!from,!via,!to) & out$("Move disk from pole " !from " to pole " !to) & move$(!n+-1,!via,!to,!from) \| ) ) & move$(4,1,2,3) );</lang> Output: <pre>Move disk from pole 1 to pole 3 Move disk from pole 1 to pole 2 Move disk from pole 3 to pole 2 Move disk from pole 1 to pole 3 Move disk from pole 2 to pole 1 Move disk from pole 2 to pole 3 Move disk from pole 1 to pole 3 Move disk from pole 1 to pole 2 Move disk from pole 3 to pole 2 Move disk from pole 3 to pole 1 Move disk from pole 2 to pole 1 Move disk from pole 3 to pole 2 Move disk from pole 1 to pole 3 Move disk from pole 1 to pole 2 Move disk from pole 3 to pole 2</pre> =={{header\|C}}==

Towers of Hanoi: Difference between revisions

Towers of Hanoi (view source)