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