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 3449


Ignore:
Timestamp:
2015-09-05T09:30:30-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r3448 r3449  
    149149      (setf (elt exponents index) new-value)))
    150150
    151 (defmethod monom-total-degree (m &optional (start 0) (end (monom-dimension m)))
    152   "Return the todal degree of a monomoal M. Optinally, a range
    153 of variables may be specified with arguments START and END."
    154   (declare (type fixnum start end))
    155   (with-slots (exponents)
    156       m
    157     (reduce #'+ exponents :start start :end end)))
    158 
     151(defgeneric monom-total-degree (m &optional (start 0) (end (monom-dimension m)))
     152  (:documentation "Return the todal degree of a monomoal M. Optinally, a range
     153of variables may be specified with arguments START and END.")
     154  (:method ((m monom) &optional (start 0) (end (monom-dimension m)))
     155    (declare (type fixnum start end))
     156    (with-slots (exponents)
     157        m
     158      (reduce #'+ exponents :start start :end end))))
    159159
    160160(defmethod monom-sugar (m &optional start end)
Note: See TracChangeset for help on using the changeset viewer.