Changeset 867
- Timestamp:
- 2015-06-09T11:28:24-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-tests.lisp
r864 r867 81 81 "monom" 82 82 (is (equalp (monom-exponents (make-monom :dimension 3)) #(0 0 0)) "Trivial monomial is a vector of 0's") 83 (is (equalp (monom-exponents (make-monom :initial-exponents '(1 2 3))) #(1 2 3)) "Monomial with powers 1,2,3")) 83 (is (equalp (monom-exponents (make-monom :initial-exponents '(1 2 3))) #(1 2 3)) "Monomial with powers 1,2,3") 84 (let ((p (make-monom :initial-exponents '(1 2 3)))) 85 (is (equalp (monom-map (lambda (x) x) p)) #(1 2 3)))) 86 84 87 85 88 (test order
Note:
See TracChangeset
for help on using the changeset viewer.