Changeset 1203
- Timestamp:
- 2015-06-11T10:54:25-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1201 r1203 345 345 (values p 1) 346 346 (let ((c (poly-content ring p))) 347 (values (make-poly-from-termlist (mapcar 348 #'(lambda (x) 349 (make-term (term-monom x) 350 (funcall (ring-div ring) (term-coeff x) c))) 351 (poly-termlist p)) 352 (poly-sugar p)) 353 c)))) 347 (values (make-poly-from-termlist 348 (mapcar 349 #'(lambda (x) 350 (make-term (term-monom x) 351 (funcall (ring-div ring) (term-coeff x) c))) 352 (poly-termlist p)) 353 (poly-sugar p)) 354 c)))) 354 355 355 356 (defun poly-content (ring p)
Note:
See TracChangeset
for help on using the changeset viewer.