20 lines
278 B
Forth
20 lines
278 B
Forth
~~~
|
|
'a var
|
|
'b var
|
|
'c var
|
|
'n var
|
|
|
|
:vars !c !b !a !n ;
|
|
:hanoi (num,from,to,via-)
|
|
vars
|
|
@n n:-zero?
|
|
[
|
|
@n @a @b @c
|
|
@n n:dec @a @c @b hanoi
|
|
vars
|
|
@b @a '\nMove_a_ring_from_%n_to_%n s:with-format puts
|
|
@n n:dec @c @b @a hanoi
|
|
] if ;
|
|
|
|
#5 #1 #3 #2 hanoi nl
|
|
~~~
|