- Timestamp:
- 2015-06-19T13:09:13-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2519 r2520 180 180 (let ((p (make-instance 'poly))) 181 181 (dotimes (i 10) 182 (insert-item p (make-instance 'term :exponents (list i (* 2 i)) :coeff ( * 3 i))))182 (insert-item p (make-instance 'term :exponents (list i (* 2 i)) :coeff (1+ (* 3 i))))) 183 183 (is-true (print p)) 184 184 ))
Note:
See TracChangeset
for help on using the changeset viewer.