Changeset 2623
- Timestamp:
- 2015-06-20T02:26:56-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2622 r2623 180 180 (q (make-instance 'poly :order #'grlex>))) 181 181 (dolist (x '( (5 . 55) (4 . 44) (2 . 22) )) 182 ( insert-item p (make-instance 'term :exponents (list (car x)) :coeff (cdr x))))182 (append-item p (make-instance 'term :exponents (list (car x)) :coeff (cdr x)))) 183 183 (dolist (x '( (7 . 77) (4 . -44) (3 . 33) (0 . 11) )) 184 ( insert-item q (make-instance 'term :exponents (list (car x)) :coeff (cdr x))))184 (append-item q (make-instance 'term :exponents (list (car x)) :coeff (cdr x)))) 185 185 (&body))) 186 186
Note:
See TracChangeset
for help on using the changeset viewer.