Changeset 3255
- Timestamp:
- 2015-06-22T20:42:51-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3254 r3255 136 136 137 137 (defmethod multiply-by ((self poly) (other monom)) 138 (assert (= (monom-dimension self) (poly-dimension other))) 138 (cond ((null (poly-dimension self)) 139 (setf (poly-dimension self) (monom-dimension other))) 140 (t (assert (= (monom-dimension item) (poly-dimension self))))) 139 141 (mapc #'(lambda (term) (multiply-by term other)) 140 142 (poly-termlist self)) … … 142 144 143 145 (defmethod multiply-by ((self poly) (other term)) 144 (assert (= (monom-dimension self) (monom-dimension other))) 146 (cond ((null (poly-dimension self)) 147 (setf (poly-dimension self) (monom-dimension other))) 148 (t (assert (= (monom-dimension item) (poly-dimension self))))) 145 149 (mapc #'(lambda (term) (multiply-by term other)) 146 150 (poly-termlist self)) … … 148 152 149 153 (defmethod multiply-by ((self poly) (other scalar)) 150 (assert (= (monom-dimension self) (monom-dimension other)))151 154 (mapc #'(lambda (term) (multiply-by term other)) 152 155 (poly-termlist self))
Note:
See TracChangeset
for help on using the changeset viewer.