- Timestamp:
- 2015-08-27T06:13:10-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3374 r3375 293 293 self) 294 294 295 (defmethod r *((poly1 poly) (poly2 poly))295 (defmethod r+ ((poly1 poly) (poly2 poly)) 296 296 "Non-destructively add POLY1 by POLY2." 297 ( multiply-by(copy-instance POLY1) (copy-instance POLY2)))297 (add-to (copy-instance POLY1) (copy-instance POLY2))) 298 298 299 299
Note:
See TracChangeset
for help on using the changeset viewer.