Artifact 781da2f0aaaf26a0bf24e9f946b2f7f15c9015d6

File rosetta_code/hanoi.rx part of check-in [537872ae2e] - continue replacing elements with variables| by crc on 2011-12-07 12:34:14. [annotate]

variables| a b c n |

: vars !c !b !a !n ;
: hanoi ( num from to via -- )
  vars
  @n 0 <>
  [
    @n @a @b @c
    @n 1- @a @c @b hanoi
    vars
    @b @a "\nMove a ring from %d to %d" puts
    @n 1- @c @b @a hanoi
  ] ifTrue ;