Contents    Page-10    Prev    Next    Page+10    Index   

Robot Mouse Example


(setq maze (make-array '(10 10)
 :initial-contents

;  0 1 2 3 4 5 6 7 8 9
'((* * * * * * * * * *)    ; 0
  (* 0 0 * * * * * * *)    ; 1
  (* 0 * * * * * * * *)    ; 2
  (* 0 * * * * * * * *)    ; 3
  (* 0 0 0 0 0 0 * * *)    ; 4
  (* * * * 0 * 0 * * *)    ; 5
  (* * * * 0 * 0 * C *)    ; 6
  (* * * * 0 * 0 * 0 *)    ; 7
  (* * * * 0 * 0 0 0 *)    ; 8
  (* * * * 0 * * * * *)))) ; 9


>(mouse maze 4 9 '())

(N N N N N E E S S S S E E N N CHEESE)