home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e070 / 5.ddi / EXPLORER / VIEWER / SEARCHIN.D < prev    next >
Encoding:
Text File  |  1984-10-13  |  701 b   |  24 lines
  1. ;;;; This file contains sample data for demonstrating matching
  2. ;;;; programs.
  3.  
  4. ;;; This section contains neighbor information.
  5.  
  6. (setf (get 'Start 'neighbors) '(a d))
  7. (setf (get 'A 'neighbors) '(Start b))
  8. (setf (get 'B 'neighbors) '(A C Goal))
  9. (setf (get 'C 'neighbors) '(B Goal))
  10. (setf (get 'D 'neighbors) '(Start E))
  11. (setf (get 'E 'neighbors) '(D))
  12. (setf (get 'Goal 'neighbors) '(B C))
  13.  
  14. ;;; This section conatins position information.
  15.  
  16. (setf (get 'Start 'position) '(0 2))
  17. (setf (get 'A 'position) '(2 0))
  18. (setf (get 'B 'position) '(5 0))
  19. (setf (get 'C 'position) '(10 0))
  20. (setf (get 'D 'position) '(2 4))
  21. (setf (get 'E 'position) '(7 4))
  22. (setf (get 'Goal 'position) '(7 2))
  23.  
  24.