;;;
;;; $Header: /home/gene/library/website/src/htdocs/lisp-heap/RCS/test.lisp,v 1.3 2003/03/21 15:30:58 gene Exp gene $
;;;
;;; Copyright (c) 2003 by Gene Michael Stover.
;;; All rights reserved.
;;; Permission to copy, store, & view this document unmodified &
;;; in its entirety is granted.
;;;

(require "heap" '("heap.lisp"))

;;;
;;; Create a heap to hold integers \& nothing
;;; else.  Order the integers from small to
;;; large.
;;;
(defvar *h* (create-heap #'<))

;;;
;;; Insert some hard-coded integers into the heap.
;;; Notice that they are out of order.
;;;
(dolist (i '(5 3 8))
	(heap-insert *h* i))

;;;
;;; Remove the items from the heap & print them.
;;; It should print 3, then 5, then 8.
;;;
(print (list (heap-remove *h*)
	     (heap-remove *h*)
	     (heap-remove *h*)))

;;; --- end of file ---