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