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 1990


Ignore:
Timestamp:
2015-06-16T00:30:20-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/pol.lisp

    r1989 r1990  
    134134
    135135;; Leading coefficient
    136 (defun poly-lc (p)
    137   (declare (type poly p))
    138   (term-coeff (poly-lt p)))
     136(defmethod poly-lc ((poly poly))
     137  (term-coeff (poly-lc poly)))
    139138
    140139;; Second coefficient
    141 (defun poly-second-lc (p)
    142   (declare (type poly p))
    143   (term-coeff (poly-second-lt p)))
     140(defmethod poly-second-lc ((poly poly))
     141  (term-coeff (poly-second-lt poly)))
    144142
    145143;; Testing for a zero polynomial
    146 (defun poly-zerop (p)
    147   (declare (type poly p))
    148   (null (poly-termlist p)))
     144(defmethod poly-zerop ((poly poly))
     145  (null (poly-termlist poly)))
    149146
    150147;; The number of terms
    151 (defun poly-length (p)
    152   (declare (type poly p))
     148(defmethod poly-length ((poly poly))
    153149  (length (poly-termlist p)))
    154150
Note: See TracChangeset for help on using the changeset viewer.