;;;; -*- mode:Lisp; syntax:Common-Lisp; package:user -*- ;;;;
;;;; Copyright 1992 Patrick H. Winston.  All rights reserved.
;;;; Version 1.1.1, transferred from master disk on 23 Apr 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 4, Nets and Basic Search

;;;; LOAD SEARCH SYSTEM
(load "search.lsp")

;;;; LOAD SEARCH TEST DATA
(load "cities.lsp")
(make-text-cities)

;;;; RUN SEARCH VARIENTS

(format t "~%~%Searching depth-first search from s to g.")
(depth-first 's 'g)

(format t "~%~%Searching breadth-first search from s to g.")
(breadth-first 's 'g)

(format t "~%~%Searching best-first search from s to g.")
(best-first 's 'g)

(format t "~%~%Searching hill-climb search from s to g.")
(hill-climb 's 'g)

(format t "~%~%Searching beam search from s to g.")
(beam 's 'g)