;;;; -*- mode:Lisp; syntax:Common-Lisp; package:user -*- ;;;; ;;;; Copyright 1992 Patrick H. Winston. All rights reserved. ;;;; Version 1.1, transferred from master disk on 21 Jan 93 ;;;; ;;;; This file may reference other files containing copyrighted software. ;;;; Any restrictions on the use of such software are described in the ;;;; files containing that software. This file may be freely copied as ;;;; long as this notice is kept intact. ;;;; Purpose: program support for Chapter 8, ;;;; Rules, Substrates, and Cognitive Modeling ;;;; REMARKS #| This program illustrates SOAR's preference mechanism only. |# ;;;; LOAD SEARCH AND PREFERENCE SYSTEM (load "prefer.lsp") ;;;; LOAD SEARCH TEST DATA (load "cities.lsp") ;;;; RUN SEARCH VARIENTS (format t "~%~%Searching depth-first search from s to g.") (progn (make-text-cities) (depth-first-search 's 'g)) (format t "~%~%Searching breadth-first search from s to g.") (progn (make-text-cities) (breadth-first-search 's 'g))