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 4382 for branches


Ignore:
Timestamp:
2016-06-06T19:58:39-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/ring.lisp

    r4381 r4382  
    108108returned as the value of this function.")
    109109  (:method ((summand t) &rest more-summands)
     110    "The default implementation of ADD."
    110111    (reduce #'add-to more-summands :initial-value (copy-instance summand))))
    111112
     
    116117this function.")
    117118  (:method ((minuend t) &rest subtrahends)
     119    "The default implementation of SUBTRACT."
    118120    (cond ((endp subtrahends) (unary-minus (copy-instance minuend)))
    119121          (t (reduce #'subtract-from subtrahends :initial-value (copy-instance minuend))))))
     
    124126Instead, a copy of factor should be made and returned as the value of this function.")
    125127  (:method ((factor t) &rest more-factors)
     128    "The default implementation of MULTIPLY."
    126129    (reduce #'multiply-by more-factors :initial-value (copy-instance factor))))
    127130
     
    130133should not modify the NUMERATOR. Instead, a copy of factor should be made and returned as the value of this function.")
    131134  (:method ((numerator t) &rest denominators)
     135    "The default implementation of DIVIDE."
    132136    (cond ((endp denominators)
    133137           (unary-inverse (copy-instance numerator)))
Note: See TracChangeset for help on using the changeset viewer.