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