projects
/
fw
/
altos
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
altos/lisp: Append a CRC to the saved image to validate on restore
[fw/altos]
/
src
/
test
/
hanoi.lisp
diff --git
a/src/test/hanoi.lisp
b/src/test/hanoi.lisp
index 01398d9121029dba270802d9362e687bb3e9c888..2b614829a8f85ec6ce3e844b022fccc76b4dd11e 100644
(file)
--- a/
src/test/hanoi.lisp
+++ b/
src/test/hanoi.lisp
@@
-6,19
+6,11
@@
(patom "\033[2J" nil)
)
(patom "\033[2J" nil)
)
-(defun test ()
- (clear)
- (move-to 30 12)
- (patom "hello, world")
- (move-to 0 19)
- )
-
(setq stack '("*" "**" "***" "****" "*****" "******" "*******"))
(setq stacks nil)
(defun display-string (x y str)
(setq stack '("*" "**" "***" "****" "*****" "******" "*******"))
(setq stacks nil)
(defun display-string (x y str)
- (move-to x y)
(move-to x y)
(patom str)
)
(move-to x y)
(patom str)
)