> gcl
GCL (GNU Common Lisp)  Version(2.3) Wed Feb 14 16:09:29 CST 2001
Licensed under GNU Library General Public License
Contains Enhancements by W. Schelter

>(load "eight-util.lsp")

Loading eight-util.lsp
Finished loading eight-util.lsp
T

>(print-tile '(1 3 4 8 6 2 7 0 5))

"
" 
" 1 3 4" 
" 8 6 2" 
" 7 0 5" 
T

>(print-answer '(1 3 4 8 6 2 7 0 5) '(UP RIGHT UP LEFT DOWN))

"
" 
" 1 3 4" 
" 8 6 2" 
" 7 0 5" 
"
" 
" 1 3 4" 
" 8 0 2" 
" 7 6 5" 
"
" 
" 1 3 4" 
" 8 2 0" 
" 7 6 5" 
"
" 
" 1 3 0" 
" 8 2 4" 
" 7 6 5" 
"
" 
" 1 0 3" 
" 8 2 4" 
" 7 6 5" 
"
" 
" 1 2 3" 
" 8 0 4" 
" 7 6 5" 
T

> (setq node '((1 3 4 8 6 2 7 0 5) 0 0 (LEFT RIGHT)))

((1 3 4 8 6 2 7 0 5) 0 0 (LEFT RIGHT))

>(apply-op 'LEFT node)

((1 3 4 8 6 2 0 7 5) 0 1 (LEFT LEFT RIGHT))

>(setq node (apply-op 'LEFT node))

((1 3 4 8 6 2 0 7 5) 0 1 (LEFT LEFT RIGHT))

>(setq node (apply-op 'UP node))

((1 3 4 0 6 2 8 7 5) 1 2 (UP LEFT LEFT RIGHT))

>