Changeset 1830 for branches/f4grobner/termlist.lisp
- Timestamp:
- 2015-06-15T14:04:54-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/termlist.lisp
r1829 r1830 59 59 "Extend every monomial in a polynomial P by inserting at the 60 60 beginning of every monomial the list of powers M." 61 (mapcar #'(lambda (term) (make-term (monom-append m (term-monom term))62 (term-coeff term)))61 (mapcar #'(lambda (term) (make-term :monom (monom-append m (term-monom term)) 62 :coeff (term-coeff term))) 63 63 p)) 64 64
Note:
See TracChangeset
for help on using the changeset viewer.