- Timestamp:
- 2015-08-27T17:09:48-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/ring.lisp
r3418 r3419 116 116 OTHER is the right factor.")) 117 117 118 (defgeneric r/ ( x &rest y)119 (:method (( x number) &rest y) (apply #'/ (cons x y)))118 (defgeneric r/ (numerator &rest denominators) 119 (:method ((numerator number) &rest denominators) (apply #'/ (cons numerator denominators))) 120 120 (:documentation "Divides ring elements.")) 121 121
Note:
See TracChangeset
for help on using the changeset viewer.