labyrinth
Posted: Fri Jan 06, 2012 5:47 am
hi , first of all im not a native english speaker
i wanna know ho to implement a labyrinth in lisp?
think u
i wanna know ho to implement a labyrinth in lisp?
think u
Discuss and learn Lisp programming of all dialects. NOTICE: Site locked. No new users or posts.
http://www.lispforum.com/
Code: Select all
north
+-----------+---+
| | |
| +-------+ | Lisp direction-keywords
| | |
| + +-------+ :n = north
w | | | e
e | +---+ + | a :s = south
s | | | | s
t | +---+---+ | t :e = east
| | |
+---+ | + | :w = west
| | | |
| +---+ | |
| | |
+-----------+---+
south
Code: Select all
(defparameter *maze*
(make-array '(7 4) :initial-contents
'(((:s :e) (:e :w) (:w) (:s))
((:n :s) (:s :e) (:e :w) (:n :w))
((:n :s :e) (:n :w) (:s :e) (:s :w))
((:n :s) (:e) (:n :w) (:n :s))
((:n :e) (:s :w) (:s :e) (:n :s :w))
((:s :e) (:n :w) (:n :s) (:n :s))
((:n :e) (:e :w) (:n :w) (:n)))))
Code: Select all
(defun move-possible-p (y x direction-keyword)
(find direction-keyword (aref *maze* y x)))