Changeset 1833
- Timestamp:
- 2015-06-15T14:05:34-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/termlist.lisp
r1832 r1833 107 107 (let ((c (funcall (ring-mul ring) (term-coeff term1) (term-coeff term2)))) 108 108 (unless (funcall (ring-zerop ring) c) 109 (list (make-term (monom-mul (term-monom term1) (term-monom term2)) c))))) 109 (list (make-term :monom (monom-mul (term-monom term1) (term-monom term2)) 110 :coeff c))))) 110 111 111 112 (defun term-times-termlist (ring term f)
Note:
See TracChangeset
for help on using the changeset viewer.