Changeset 3636
- Timestamp:
- 2015-09-05T20:37:09-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3635 r3636 101 101 ;; so it will be automatically sorted. 102 102 (dolist (x '( ((0) . 1) ((1) . 2) )) 103 (poly-insert-term p (make-instance 'term :exponents (car x) ) (cdr x)))103 (poly-insert-term p (make-instance 'term :exponents (car x) :coeff (cdr x)))) 104 104 (dolist (x '( ((0) . 1) ((1) . 3) )) 105 (poly-insert-term q (make-instance 'term :exponents (car x) ) (cdr x)))105 (poly-insert-term q (make-instance 'term :exponents (car x) :coeff (cdr x)))) 106 106 ;; P*Q 107 107 (dolist (x '( ((0) . 1) ((1) . 5) ((2) . 6))) 108 (poly-insert-term p*q (make-instance 'term :exponents (car x) ) (cdr x)))108 (poly-insert-term p*q (make-instance 'term :exponents (car x) :coeff (cdr x)))) 109 109 (&body))) 110 110
Note:
See TracChangeset
for help on using the changeset viewer.