Changeset 4442 for branches/f4grobner/5am-poly.lisp
- Timestamp:
- 2016-06-10T19:45:42-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r4335 r4442 88 88 ) 89 89 90 (test poly-add-more 91 "More polynomial addition" 92 (is (equal (poly->alist (add-to 93 (alist->poly '(((0) . 1))) 94 (alist->poly '(((1) . 2))))) 95 '(((1) . 2) ((0) . 1)))) 96 (is (equal (poly->alist (add-to 97 (alist->poly '(((0) . 1))) 98 (alist->poly '(((0) . 2))))) 99 '(((0) . 3)))) 100 (is (equal (poly->alist (add-to 101 (alist->poly '(((0) . 1) ((2) . 5))) 102 (alist->poly '(((1) . 2) ((3) . 7))))) 103 '(((3) . 7) ((2) . 5) ((1) . 2) ((0) . 1))))) 104 90 105 (def-fixture poly-multiply-context () 91 106 (let ((p (make-instance 'poly))
Note:
See TracChangeset
for help on using the changeset viewer.