;;;; -*- mode:Lisp; syntax:Common-Lisp; package:user -*- ;;;;
;;;; Copyright 1992 Patrick H. Winston.  All rights reserved.
;;;; Version 1.1.1, copied from master file on 23 Apr 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.

;;;; REMARKS

#|

The segments are laid out like this:

  *-2-*
  :   :
  1   3
  :   :
  *-0-*
  :   :
  6   4
  :   :
  *-5-*

|#

;;;; SAMPLE DATA

(setf *samples*
      '((0 0 1 1 1 1 1 1 1)
	(9 1 1 1 1 1 1 0 1)
	(8 1 1 1 1 1 1 1 1)
	(7 0 0 1 1 1 0 0 1)
	(6 1 1 1 0 1 1 1 1)
	(5 1 1 1 0 1 1 0 1)
	(4 1 1 0 1 1 0 0 1)
	(3 1 0 1 1 1 1 0 1)
	(2 1 0 1 1 0 1 1 1)
	(1 0 0 0 1 1 0 0 1)))