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 1203


Ignore:
Timestamp:
2015-06-11T10:54:25-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r1201 r1203  
    345345      (values p 1)
    346346    (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))))
    354355
    355356(defun poly-content (ring p)
Note: See TracChangeset for help on using the changeset viewer.