Changeset 3495
- Timestamp:
- 2015-09-05T11:00:13-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3494 r3495 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)) :coeff (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)) :coeff (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)) :coeff (cdr x))) 109 109 (&body))) 110 110
Note:
See TracChangeset
for help on using the changeset viewer.