projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/telegps-v2.0: git ignore make results
[fw/altos]
/
src
/
test
/
hanoi.lisp
diff --git
a/src/test/hanoi.lisp
b/src/test/hanoi.lisp
index b5f2d0f5b3099ff639898a8870f576f028c17904..e2eb0fa00854dd3732496ca02e210feb8d142fc5 100644
(file)
--- a/
src/test/hanoi.lisp
+++ b/
src/test/hanoi.lisp
@@
-17,11
+17,11
@@
; 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 clear ()
)
(defun clear ()
- (patom "\033[2J"
nil
)
+ (patom "\033[2J")
)
(defun display-string (x y str)
)
(defun display-string (x y str)
@@
-112,6
+112,8
@@
; 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
+(setq move-delay 100)
+
(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))
@@
-121,7
+123,7
@@
(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)
- (delay
100
)
+ (delay
move-delay
)
)
)
)
)
@@
-149,4
+151,5
@@
(clear)
(_hanoi len 0 1 2)
(move-to 0 23)
(clear)
(_hanoi len 0 1 2)
(move-to 0 23)
+ t
)
)