Changeset 4095
- Timestamp:
- 2016-06-01T10:28:08-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4093 r4095 244 244 245 245 (defun divide (numerator &rest denominators) 246 " Non-destructively divide object NUMERATOR by productof DENOMINATORS."246 "Successively divides NUMERATOR by elements of DENOMINATORS." 247 247 (cond ((endp denominators) 248 248 (unary-inverse numerator)) 249 (t ( divide-by (copy-instance numerator) (apply #'multiply denominators)))))249 (t (reduce #'divide-by denominators :initial-value numerator)))) 250 250 251 251 (defgeneric divides-p (object1 object2)
Note:
See TracChangeset
for help on using the changeset viewer.