close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1913


Ignore:
Timestamp:
2015-06-15T18:05:02-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r1912 r1913  
    414414  "Greatest common divisor of the coefficients of the polynomial P. Use the RING structure
    415415to compute the greatest common divisor."
    416   (declare (type poly p))
     416  (declare (type ring ring) (type poly p))
    417417  (reduce (ring-gcd ring) (mapcar #'term-coeff (rest (poly-termlist p))) :initial-value (poly-lc p)))
    418418
Note: See TracChangeset for help on using the changeset viewer.