(defun display ()
(display-stacks 0 20 stacks)
- (move-to 1 1)
- (patom "\n")
+ (move-to 1 21)
+ (flush)
)
(defun length (l)
(setq stacks (replace stacks from from-stack))
(setq stacks (replace stacks to to-stack))
(display)
- (delay 500)
+ (delay 100)
)
)
(clear)
(_hanoi len 0 1 2)
)
+
+(hanoi)