Changeset 3803
- Timestamp:
- 2016-05-27T22:39:17-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3797 r3803 354 354 self) 355 355 356 (defun add (object1 object2)356 (defun add-2 (object1 object2) 357 357 "Non-destructively add POLY1 by POLY2." 358 358 (add-to (copy-instance object1) (copy-instance object2))) 359 360 (defun add (&rest summands) 361 "Non-destructively adds list SUMMANDS." 362 (cond ((endp summands) 0) 363 ((endp (rest summands)) (first summands)) 364 (t (reduce #'add-2 summands :initial-value 0)))) 365 359 366 360 367 (defun subtract (minuend &rest subtrahends)
Note:
See TracChangeset
for help on using the changeset viewer.