Changeset 985
- Timestamp:
- 2015-06-09T20:46:48-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r984 r985 161 161 (+ (poly-sugar p) (poly-sugar q)))) 162 162 163 (defun poly-expt (ring p n) 163 (defun poly-expt (ring-and-order p n) 164 (declare (type ring-and-order ring-and-order) (type poly p)) 164 165 (make-poly-from-termlist (termlist-expt ring (poly-termlist p) n) (* n (poly-sugar p)))) 165 166
Note:
See TracChangeset
for help on using the changeset viewer.