- Timestamp:
- 2016-06-06T19:50:57-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4370 r4375 439 439 self) 440 440 441 (defun add (summand &rest more-summands)442 "Successively Adds to SUMMAND the elements of MORE-SUMMANDS."443 (reduce #'add-to more-summands :initial-value summand))444 445 (defun subtract (minuend &rest subtrahends)446 "Non-destructively subtract MINUEND and SUBTRAHENDS."447 (cond ((endp subtrahends) (unary-minus minuend))448 (t (subtract-from (copy-instance minuend) (reduce #'add subtrahends)))))449 450 441 (defmethod left-tensor-product-by ((self poly) (other monom)) 451 442 (setf (poly-termlist self)
Note:
See TracChangeset
for help on using the changeset viewer.