- Timestamp:
- 2015-06-17T21:49:44-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-monom.lisp
r2161 r2162 59 59 (m+n (make-monom :dimension 3 :initial-exponents '(5 7 9)))) 60 60 (is (equalp (r->list z) '(0 0 0)) "Trivial monomial is a vector of 0's") 61 (is (r-equalp (+ m n)) (monom-exponents m+n))))61 (is (r-equalp (+ m n)) m+n))) 62 62 63 63
Note:
See TracChangeset
for help on using the changeset viewer.