;;;; -*- mode:Lisp; syntax:Common-Lisp; package:user -*- ;;;; ;;;; Copyright 1992 Patrick H. Winston. All rights reserved. ;;;; Version 1.1, copied from master file on 21 Jan 93 ;;;; ;;;; This software is licensed by Patrick H. Winston (licensor) for ;;;; instructional use with the textbooks ``Artificial Intelligence,'' by ;;;; Patrick H. Winston, and ``Lisp,'' by Patrick H. Winston and Berthold ;;;; K. P. Horn. Your are free to make copies of this software and ;;;; modify it for such instructional use as long as: ;;;; 1. You keep this notice intact. ;;;; 2. You cause any modified files to carry a prominent notice stating ;;;; that you modified the files and the date of your modifications. ;;;; This software is licensed ``AS IS'' without warranty and the licensor ;;;; shall have no liability for any alleged defect or damages. ;;;; REMARK #| Test data looks like this: 6 * Red * * Yellow * 5 * Orange * * * Purple 4 U1 * * U2 * * 3 * * * * * * 2 Red * * Blue * * 1 * Violet * * * Green 0 1 2 3 4 5 6 |# ;;;; TEST DATA (setf samples '((b1 red 1 2) (b2 violet 2 1) (b3 blue 4 2) (b4 green 6 1) (b5 red 2 6) (b6 yellow 5 6) (b7 orange 2 5) (b8 purple 6 5))) (make-record-for-unknown u1 1 4) (make-record-for-unknown u2 4 4) (make-record-for-unknown u3 1 6) (make-record-for-unknown u4 6 1) (make-record-for-unknown u5 1 1) (make-record-for-unknown u6 6 6)