Changeset 3114
- Timestamp:
- 2015-06-22T08:03:57-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3113 r3114 140 140 (q (alist->poly '( ((0) . 1) ((2) . 3)))) 141 141 (plist (list p q)) 142 (std-sum (alist->poly '(((0 1 0) . 1) ((0 1 2) . 3)143 (( 0 0 0) . -1) ((1 0 0) . 1) ((1 0 1) . 2)))))142 (std-sum (alist->poly '(((0 0 0) . -1) ((0 1 0) . 1) ((0 1 2) . 3) 143 ((1 0 0) . 1) ((1 0 1) . 2))))) 144 144 (is (r-equalp (standard-sum plist) std-sum)))) 145 145
Note:
See TracChangeset
for help on using the changeset viewer.