close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 4096 for branches


Ignore:
Timestamp:
2016-06-01T10:32:15-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r4095 r4096  
    224224      copy))
    225225
    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 
    236226(defgeneric unary-inverse (self)
    237227  (:documentation "Returns the unary inverse of SELF.")
    … …  
    244234
    245235(defun divide (numerator &rest denominators)
    246   "Successively divides NUMERATOR by elements of DENOMINATORS."
     236  "Successively divides NUMERATOR by elements of DENOMINATORS. The operation
     237destructively modifies NUMERATOR."
    247238  (cond ((endp denominators)
    248239         (unary-inverse numerator))
Note: See TracChangeset for help on using the changeset viewer.