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 3941 for branches/f4grobner


Ignore:
Timestamp:
2016-05-29T23:53:57-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

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

    r3940 r3941  
    6161can be any type of data, and a function PAIR-ORDER-FN used to compaire
    6262the calculated keys to determine which pair is more promising and
    63 should be considered first.
    64 The normal selection strategy for a given monomial order PAIR-ORDER-FN consists in
    65 selecting the pair with the minimal LCM of leading monomials first."))
     63should be considered first.  The normal selection strategy for a given
     64monomial order PAIR-ORDER-FN consists in selecting the pair with the
     65minimal LCM of leading monomials first."))
    6666
    6767(defmethod print-object ((self selection-strategy) stream)
     
    9292                   (pair-order-fn pair-order-fn)
    9393                   (pq pq))
    94       (setf pq (make-priority-queue
     94      self
     95    (setf pq (make-priority-queue
    9596                :element-type 'critical-pair
    9697                :element-key #'(lambda (pair) (funcall pair-key-fn (critical-pair-first pair) (critical-pair-second pair)))
Note: See TracChangeset for help on using the changeset viewer.