Changeset 3991 for branches/f4grobner
- Timestamp:
- 2016-05-30T21:07:16-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/priority-queue.lisp
r3990 r3991 20 20 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 21 21 22 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;23 ;;24 ;; A conventional implementation of priority queues based on heaps25 ;;26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;27 28 22 (defpackage "PRIORITY-QUEUE" 29 23 (:use :cl :heap) … … 34 28 "PRIORITY-QUEUE-EMPTY-P" 35 29 "PRIORITY-QUEUE-SIZE" 36 )) 30 ) 31 (:documentation "Implements a priority queue.")) 37 32 38 33 (in-package :priority-queue) … … 71 66 (heap-empty-p heap)))) 72 67 73 (def un priority-queue-size (pq)68 (defgeneric queue-size (pq) 74 69 (fill-pointer (priority-queue-heap pq)))
Note:
See TracChangeset
for help on using the changeset viewer.