Changeset 1913 for branches/f4grobner
- Timestamp:
- 2015-06-15T18:05:02-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r1912 r1913 414 414 "Greatest common divisor of the coefficients of the polynomial P. Use the RING structure 415 415 to compute the greatest common divisor." 416 (declare (type poly p))416 (declare (type ring ring) (type poly p)) 417 417 (reduce (ring-gcd ring) (mapcar #'term-coeff (rest (poly-termlist p))) :initial-value (poly-lc p))) 418 418
Note:
See TracChangeset
for help on using the changeset viewer.