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 3994


Ignore:
Timestamp:
2016-05-30T21:19:13-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pair-queue.lisp

    r3977 r3994  
    8888
    8989(defun make-critical-pair-queue (&key pair-key-fn pair-order-fn (poly-list nil) (start 1)
    90                                  &aux (pq (make-priority-queue
    91                                           :element-type 'critical-pair
    92                                           :element-key #'(lambda (pair) (funcall pair-key-fn
    93                                                                                   (critical-pair-first pair)
    94                                                                                   (critical-pair-second pair)))
     90                                 &aux (pq (make-instance 'priority-queue
     91                                                        :element-type 'critical-pair
     92                                                        :element-key #'(lambda (pair) (funcall pair-key-fn
     93                                                                                                (critical-pair-first pair)
     94                                                                                                (critical-pair-second pair)))
    9595                                           :test pair-order-fn)))
    9696  "Makes a priority queue for critical pairs. The argument POLY-LIST should the initial list of polynomials.
Note: See TracChangeset for help on using the changeset viewer.