Changeset 2671
- Timestamp:
- 2015-06-20T15:57:22-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r2670 r2671 65 65 (p+q (make-instance 'poly)) 66 66 (p-q (make-instance 'poly))) 67 ;; Populate the polynomials; the lists of (exponents . coefficient) pairs 68 ;; must be in increasing order. 67 69 (dolist (x '( ((2) . 22) ((4) . 44) ((5) . 55) ((8) . 88) ((9) . 99) )) 68 70 (insert-item p (make-instance 'term :exponents (list (car x)) :coeff (cdr x))))
Note:
See TracChangeset
for help on using the changeset viewer.