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 4353


Ignore:
Timestamp:
2016-06-06T17:37:11-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/monom.lisp

    r4345 r4353  
    3333           "MULTIPLY-BY"
    3434           "DIVIDE-BY"
    35            "DIVIDE"
    36            "MULTIPLY"
    3735           "DIVIDES-P"
    3836           "DIVIDES-LCM-P"
    … …  
    189187  self)
    190188
    191 (defun multiply (factor &rest more-factors)
    192   "Successively multiplies factor FACTOR by the remaining arguments
    193 MORE-FACTORS, using MULTIPLY-BY to multiply two factors. Thus
    194 FACTOR may be destructively modified."
    195   (reduce #'multiply-by more-factors :initial-value (copy-instance factor)))
    196 
    197189(defmethod divide-by ((self monom) (other monom))
    198190  (with-slots ((exponents1 exponents))
    … …  
    221213
    222214(defmethod unary-inverse ((self monom)) self)
    223 
    224 (defun divide (numerator &rest denominators)
    225   "Successively divides NUMERATOR by elements of DENOMINATORS. The operation
    226 destructively modifies NUMERATOR."
    227   (cond ((endp denominators)
    228          (unary-inverse numerator))
    229         (t (reduce #'divide-by denominators :initial-value (copy-instance numerator)))))
    230215
    231216(defgeneric divides-p (object1 object2)
Note: See TracChangeset for help on using the changeset viewer.