Changeset 4277
- Timestamp:
- 2016-06-04T21:08:42-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r4276 r4277 673 673 (error "Cannot evaluate as polynomial: ~A" expr))))))) 674 674 675 (defgeneric make-zero-for (self) 676 (:method ((self number)) 0) 677 (:method ((self poly)) 678 (make-instance 'poly :dimension (poly-dimension self)))) 679 680 (defgeneric make-unit-for (self) 681 (:method ((self number)) 1) 682 (:method ((self poly)) 683 (make-poly-constant (poly-dimension self) 1))) 675 (defmethod make-zero-for ((self poly)) 676 (make-instance 'poly :dimension (poly-dimension self))) 677 678 (defmethod make-unit-for ((self poly)) 679 (make-poly-constant (poly-dimension self) 1)) 684 680 685 681 (defgeneric poly-reverse (self)
Note:
See TracChangeset
for help on using the changeset viewer.