Changeset 2167
- Timestamp:
- 2015-06-17T21:56:47-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2163 r2167 131 131 (defmethod r* ((m1 monom) (m2 monom)) 132 132 "Multiply monomial M1 by monomial M2." 133 (with-slots ((exponents1 exponents) )133 (with-slots ((exponents1 exponents) dimension) 134 134 m1 135 135 (with-slots ((exponents2 exponents)) 136 136 m2 137 (let* ((exponents (copy-seq exponents1)) 138 (dim (reduce #'+ exponents))) 137 (let* ((exponents (copy-seq exponents1))) 139 138 (map-into exponents #'+ exponents1 exponents2) 140 (make-instance 'monom :dim dim :exponents exponents)))))139 (make-instance 'monom :dim dimension :exponents exponents))))) 141 140 142 141
Note:
See TracChangeset
for help on using the changeset viewer.