Changeset 2950
- Timestamp:
- 2015-06-21T14:02:07-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2875 r2950 154 154 self) 155 155 156 (defun copy-monom (m) 157 (make-instance 'monom 158 :dimension (monom-dimension m) 159 :exponents (copy-seq (monom-exponents m)))) 160 156 161 (defmethod r* ((m1 monom) (m2 monom)) 157 162 "Non-destructively multiply monomial M1 by M2." 158 (multiply-by (copy- instance m1) (copy-instancem2)))163 (multiply-by (copy-monom m1) (copy-monom m2))) 159 164 160 165 (defmethod r/ ((m1 monom) (m2 monom))
Note:
See TracChangeset
for help on using the changeset viewer.