- Timestamp:
- 2016-05-29T23:34:10-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/pair-queue.lisp
r3934 r3935 78 78 (defclass min-total-degree-strategy (selection-strategy) 79 79 ((pair-key-fn :initform #'(lambda (p q) (total-degree (universal-lcm (leading-monomial p) (leading-monomial q))))) 80 (pair-order #'<))80 (pair-order :initform #'<)) 81 81 (:documentation "Make a selection strategy where a pair with a 82 82 minimum total degree of LCM of leading monomials is selected.")) 83 83 84 84 (defclass minimal-length-strategy (selection-strategy) 85 ((pair-key-fn #'(lambda (p q) (+ (poly-length p) (poly-length q))))86 (pair-order #'<))85 ((pair-key-fn :initform #'(lambda (p q) (+ (poly-length p) (poly-length q)))) 86 (pair-order :initform #'<)) 87 87 (:documentation "Make a selection strategy where a pair with the minimum combined length of both 88 88 polynomials is selected."))
Note:
See TracChangeset
for help on using the changeset viewer.