Towers of Hanoi: Difference between revisions

Content deleted Content added

Inline

@@ Line 109: / Line 109: @@
  : middle ." middle" ;
- : print ( t f -- )
-   CR ." Move disk from " execute ."  to " execute  ;
  : move-disk ( v t f n -- v t f )
-   dup 1 = if drop 2dup print exit then
+   dup 0= if drop exit then
 -       >R
    rot swap R@ ( t v f n-1 ) recurse
-   rot swap        2dup print
+   rot swap
+dup cr ." Move disk from " execute ."  to " execute
    swap rot R> ( f t v n-1 ) recurse
    swap rot ;