close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 3991 for branches


Ignore:
Timestamp:
2016-05-30T21:07:16-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/priority-queue.lisp

    r3990 r3991  
    2020;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    2121
    22 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    23 ;;
    24 ;; A conventional implementation of priority queues based on heaps
    25 ;;
    26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    27 
    2822(defpackage "PRIORITY-QUEUE"
    2923  (:use :cl :heap)
     
    3428           "PRIORITY-QUEUE-EMPTY-P"
    3529           "PRIORITY-QUEUE-SIZE"
    36            ))
     30           )
     31  (:documentation "Implements a priority queue."))
    3732
    3833(in-package :priority-queue)
     
    7166      (heap-empty-p heap))))
    7267
    73 (defun priority-queue-size (pq)
     68(defgeneric queue-size (pq)
    7469  (fill-pointer (priority-queue-heap pq)))
Note: See TracChangeset for help on using the changeset viewer.