Changeset 2064 for branches/f4grobner
- Timestamp:
- 2015-06-17T19:02:21-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2063 r2064 140 140 (reduce #'+ exponents :start start :end end))) 141 141 142 #| 143 142 144 (defmethod sugar ((m monom) &aux (start 0) (end (dimension m))) 143 145 "Return the sugar of a monomial M. Optinally, a range 144 146 of variables may be specified with arguments START and END." 145 147 (declare (type fixnum start end)) 146 (total-degree m start end)) 148 (with-slots (exponents) 149 m 150 (total-degree exponents start end))) 147 151 148 152 (defmethod ring-mul ((m1 monom) (m2 monom)) &aux (result (copy-seq m1)))
Note:
See TracChangeset
for help on using the changeset viewer.