2017-10-20 21:58:42 +02:00
|
|
|
~~~
|
2017-10-22 19:45:28 +02:00
|
|
|
'Num var
|
|
|
|
|
'From var
|
|
|
|
|
'To var
|
|
|
|
|
'Via var
|
2017-10-20 21:58:42 +02:00
|
|
|
|
2017-10-22 19:45:28 +02:00
|
|
|
:set-vars !Via !To !From !Num ;
|
2017-10-20 21:58:42 +02:00
|
|
|
:hanoi (num,from,to,via-)
|
2017-10-22 19:45:28 +02:00
|
|
|
set-vars
|
|
|
|
|
@Num n:-zero?
|
2017-10-20 21:58:42 +02:00
|
|
|
[
|
2017-10-22 19:45:28 +02:00
|
|
|
@Num @From @To @Via
|
|
|
|
|
@Num n:dec @From @Via @To hanoi
|
|
|
|
|
set-vars
|
|
|
|
|
@To @From '\nMove_a_ring_from_%n_to_%n s:with-format puts
|
|
|
|
|
@Num n:dec @Via @To @From hanoi
|
2017-10-20 21:58:42 +02:00
|
|
|
] if ;
|
|
|
|
|
|
2017-10-22 19:45:28 +02:00
|
|
|
#3 #1 #3 #2 hanoi nl
|
2017-10-20 21:58:42 +02:00
|
|
|
~~~
|
