Changeset 4096
- Timestamp:
- 2016-06-01T10:32:15-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r4095 r4096 224 224 copy)) 225 225 226 ;; (defun multiply-2 (object1 object2)227 ;; "Multiply OBJECT1 by OBJECT2"228 ;; (multiply-by (copy-instance object1) (copy-instance object2)))229 230 ;; (defun multiply (&rest factors)231 ;; "Non-destructively multiply list FACTORS."232 ;; (cond ((endp factors) 1)233 ;; ((endp (rest factors)) (first factors))234 ;; (t (reduce #'multiply-2 factors))))235 236 226 (defgeneric unary-inverse (self) 237 227 (:documentation "Returns the unary inverse of SELF.") … … 244 234 245 235 (defun divide (numerator &rest denominators) 246 "Successively divides NUMERATOR by elements of DENOMINATORS." 236 "Successively divides NUMERATOR by elements of DENOMINATORS. The operation 237 destructively modifies NUMERATOR." 247 238 (cond ((endp denominators) 248 239 (unary-inverse numerator))
Note:
See TracChangeset
for help on using the changeset viewer.