Changeset 3994 for branches/f4grobner/pair-queue.lisp
- Timestamp:
- 2016-05-30T21:19:13-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r3977 r3994 88 88 89 89 (defun make-critical-pair-queue (&key pair-key-fn pair-order-fn (poly-list nil) (start 1) 90 &aux (pq (make- priority-queue91 92 93 94 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))) 95 95 :test pair-order-fn))) 96 96 "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.