Changeset 4117
- Timestamp:
- 2016-06-01T13:53:31-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4116 r4117 453 453 self) 454 454 455 (defun add (&rest summands) 456 "Non-destructively adds list SUMMANDS." 457 (cond ((endp summands) 0) 458 (t (reduce #'add-2 summands)))) 455 (defun add (summand &rest more-summands) 456 "Successively Adds to SUMMAND the elements of MORE-SUMMANDS." 457 (reduce #'add-to summands :initial-value summand)) 459 458 460 459 (defun subtract (minuend &rest subtrahends)
Note:
See TracChangeset
for help on using the changeset viewer.