No serious changes.
Signed-off-by: Keith Packard <keithp@keithp.com>
; ANSI control sequences
(defun move-to (col row)
; ANSI control sequences
(defun move-to (col row)
- (patom "\033[" row ";" col "H" nil)
+ (patom "\033[" row ";" col "H")
)
(defun display-string (x y str)
)
(defun display-string (x y str)
; Move a piece from the top of one stack
; to the top of another
; Move a piece from the top of one stack
; to the top of another
(defun move-piece (from to)
(let ((from-stack (nth stacks from))
(to-stack (nth stacks to))
(defun move-piece (from to)
(let ((from-stack (nth stacks from))
(to-stack (nth stacks to))
(setq stacks (replace stacks from from-stack))
(setq stacks (replace stacks to to-stack))
(display)
(setq stacks (replace stacks from from-stack))
(setq stacks (replace stacks to to-stack))
(display)
(clear)
(_hanoi len 0 1 2)
(move-to 0 23)
(clear)
(_hanoi len 0 1 2)
(move-to 0 23)