Changeset 2487
- Timestamp:
- 2015-06-19T11:12:03-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r2486 r2487 99 99 (length (poly-termlist self))) 100 100 101 (defmethod multiply-by ((self poly) (other scalar))102 (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self))103 self)104 105 101 (defmethod multiply-by ((self poly) (other monom)) 106 102 (mapc #'(lambda (term) (multiply-by term monom)) (poly-termlist self)) 107 103 self) 104 105 (defmethod multiply-by ((self poly) other) 106 (mapc #'(lambda (term) (multiply-by term other)) (poly-termlist self)) 107 self) 108 108 109 109 110 (defgeneric add-to (self other)
Note:
See TracChangeset
for help on using the changeset viewer.