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


Ignore:
Timestamp:
2016-06-03T18:21:25-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/pair-queue.lisp

    r4184 r4185  
    7676              pair-key-fn pair-order-fn))))
    7777
    78 (defconstant +normal-strategy+
     78(defparameter +normal-strategy+
    7979  (make-instance
    8080   'selection-strategy
    … …  
    8484leading monomials is selected.")
    8585
    86 (defconstant +min-total-degree-strategy+
    87   (make-instance
     86(defparameter +min-total-degree-strategy+
     87  #.(make-instance
    8888   'selection-strategy
    8989   :pair-key-fn #'(lambda (p q) (total-degree (universal-lcm (leading-monomial p) (leading-monomial q))))
    … …  
    9292  LCM of leading monomials is selected.")
    9393
    94 (defconstant +min-combined-length-strategy+
    95   (make-instance
     94(defparameter +min-combined-length-strategy+
     95  #.(make-instance
    9696   'selection-strategy
    9797   :pair-key-fn #'(lambda (p q) (+ (poly-length p) (poly-length q)))
Note: See TracChangeset for help on using the changeset viewer.